MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
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SSSSSSSS MM MM GGGGGGGG KK KK EEEEEEEEEE YY YY PPPPPPPP AAAAAA DDDDDDDD 
SSSSSSSS AM MM GGGGGGGG KK KK EEEEEEEEEE YY YY PPPPPPPP AAAAAA DDDDDDDD 
SS MMMM MMMM GG KK KK EE YY 7. Te PP AA AA ODD 
SS MMMM MMMM GG KK KK EE YY 7 PP AA AA 0D 
SS MM MM MM «(GG KK KK EE RB PP PP AA AA DD 
SS MM MM MM «GG KK K EE YY YY PP PP AA AA DD 
SSSSSS MM MM GG KKKKKK EEEEEEEE YY PPPPPPPP Aa AA DD 
SSSSSS MM MM GG KKKKKK EEEEEEEE YY PPPPPPPP AA AA 0D 
SS MM MM GG GGGGGG KK KK EE YY PP AAAAAAAAAA DD 
SS MM MM GG GGGGGG KK KK EE YY PP AAAAAAAAAA DD 
SS MM MM GG GG KK KK EE YY PP AA AA DD 
SS MM MM KK KK EE YY PP AA AA DD dc 
SSSSSSSS MM MM GGGGGG KK KK EEEEEEEEEE YY PP AA AA DDDDDDDD 
SSSSSSSS MM MM GGGGGG KK KK EEEEEEEEEE YY PP AA AA DDDDDDDD 
LL IIIII] SSSSSSSS 
LL IIIII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIIII SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
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MODULE SMGSKEYPA 
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D ( &TIT "Screen Manageme cilit 
IDENT = VF 88! ore ite: SMGKE 
BEGIN 
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it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


1 hal SOF TWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
He INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
SORPORATI On NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LR RRR ERE AERA ERE REAR AA REET EAA EEE 
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| 
lee 
FACILITY: Screen Management Facility 
ABSTRACT: 

This module contains procedures to manage keypad key definitions. 
ENVIRONMENT: User mode - AST reentrant 
AUTHOR: Steven B. Lionel, CREATION DATE: 10-Feb-1983 
MODIFIED BY: 
| 


1-001 - Original. SBL 10-Feb-1983 

1-30 - Use DEFAULT’ as the default state name. SBL 18-May-1983 

1-005 - ae 4 the oorers state name in the KTH, so it can be sticky 

cross operation SBL 23-Jun-19 

1-004 - Ada SMG$ ist tke “bers and SMGSSET_DEFAULT_STATE. When creating 

“total key”, sap. the bytes of the ke ue09s o that control 
gers sort in the proper order. SBL 10- 
5 KTH_A_DEF _KEY 0D in SMGSSET DEFAULT. TATE. SBL 14-Se He 985 
6 - he Fequiréd NUL into TKEY in SMGSSET_DEFAULT_STATE. SBL 15-Sep-1983 
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1-006 Declarations ess : 1or8ep71 382 99:08:8) «— HShGa te sneismexevean -6$2.1 % 025 

; 5 0 ¢ } XSBTTL "Declarations' : 
; 8 6 § ] | PROLOGUE FILE: 
oe Ry 
: 4 ' i REQUIRE ‘RTLIN:SMGPROLOG'; ! Screen management definitions : 
3 6 138 1! 
; 6 ; 9 1 | LINKAGE 
: 2 O14) 
; 6 O14¢ 1 LINKAGE 
; 6 145 1 CONSTRUCT_TKEYSLNK = : 
; 68 Q144 1 CALL TREGISTER=6, REGISTER=7; REGISTER=7); : 
: 9 b14e | 
cay O14? | i TABLE OF CONTENTS: 
a HRY! | 
; on 0150 1 FORWARD ROUTINE ; 
oe Q151 1 SMGSCREATE KEY TABLE, ! Create a key table ; 
; 76 8126 1 SMGSADD_KEY_DEF, ! Add a key definition ; 
; 77 0153 1 SMGSGET_KEY P ' Get a key definition : 
: 78 0154 1 SMGSDELETE_REY_DE ' Delete a key definition ; 
; 79 0155 1 SNGSSET DEFAULT. ST TATE {| Set or get a default state ; 
: 80 0156 1 CSSLOOKUP KEY? SMGSSLOOKUP KEYSLNK, | Lookup @ key ; 
3 «i 0157 1 CONSTRUCT. T TREY: CONSTRUCT_TKEYSLNK, ! Construct the total key : 
; 82 0158 1 OMPARE_ROUTINE, ' Compare two entries : 
; 83 0159 1 ALLOC_ROUTINE, ' Allocate an entr : 
> 84 0160 1 SMGSDEF INE_KEY, ' Process DEFINE/K 3 
; 85 0161 #1 DEF INE_KEY_HANDLER, ' Handler for SMGSDEF INE KEY : 
; 686 B166 1 SMGSLOAD_KEY_DEFS, ' Load a file of key defs : 
; 0165 1 SMGSLIST_KEY_DEFS, ' List hey definitions : 
; 8 0164 1 TRAVERSE_ROUTINE; ! Traverse key table : 
en ee 2 
; 31 O167 | | MACROS: 
eae : 
: 95 0171 1 | EQUATED SYMBOLS: 2 
; o17e 1! : 
eet ee : 
; 99 b158 1 ! Define a mask of those control keys used by advanced Line editing. : 
eG iS : 
; 108 178 1 LITERAL : 
> 10 179 1 ACIRLA = 1, : 
104 180 1 — KICTRLB = 2, : 
: 105 181 1 —-KICTRLD = 4, ; 
; 18e 1 KICTRLE = 5, : 
: 10 183 1 = KICTRLF_= 6, 
: 108 186 1 KiBS = 8, ; 
; 109 185 1 KTHT = ; 
> 110 186 1 KLFs 1, - ; 
> 4191 0187 1 MTEDIT_KEYS = (1*K_CTRLA) + (1*K_CTRLB) + (1*K_CTRLD) + (1*K_CTRLE) + : 
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14-Sep-1984 


C(1*K CTRLF) + (1*K_BS) + (1*K_LF); 


| FIELDS: 

} NONE 
OWN STORAGE: 
NONE 
' 

' 


i EXTERNAL DECLARATIONS: 


EXTERNAL ROUTINE 
CLISDCL_PARSE, 
CLISGET" VALUE, 


aay 8 LITERAL 


$_ FACILITY: UNSIGNED (6), 


CL 
SMGS_ PILTOOLON, 


“NOMOREKEYS, 
SMGS~PREDEFREP; 


EXTERNA 
T1BSAB_U CASE, 
SMGSSAB_ DEFREY.. CLD; 


VERSE TREE, 
SMGSCREATE “VIRTUAL KEYBOARD, 
cn i KEYBOARD, 


——— 


! Parse command Line 
i Get value of item from command Line 


CLISPR PRESENT. Indicate whether ten is present 
LIBSGE Alloc virtual me ry 

LIBSA ANAC Ze _SDESC_R2: LIBSANALYZE SbE Sc YR2SL uematee Analyze string desc 
LIBSSCOPY_R~DX6: CIB$SCOP DX6SCINKAGE, ' Copy string 
CIBSSCOPY ~Broxe:; CIBSsCOPY ~BRDXESLINKAGE. i Copy string 
LIBSSFREET_DD i Free string 
LIBSSFREE1—DD6: LIBSSFREE1 -DD6SLINKAGE i Free string 
LIBSSFREEN-DD, Free strings 

LIBSSIGNAL; Signal continuable error 
aa! TREE, Insert item in balanced tree 
LIBSLOOK Find item in tree 

LIBSTRA Traverse balanced tree 


Create a virtual keyboard 
Delete a virtual keyboard 
Read a string 

Convert key code to name 
Convert key name to key code 


CLI facility code 

No command on Line 

Filespec too long 

Invalid peynees setae attributes 
Invalid key name 

Invalid state nam 

Key definition is protected 

Key is not defined 

No more keys 

Previous key-definition replaced 


Upcase translate table 
Command Line definition for DEF INE/KEY 
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1 74 
CREATE_REY_ TABLE . SMGRTL.SRCISMGKEYPAD .B 32:1 (3) | 
1 XSBTTL "SMGSCREATE_KEY_ TABLE’ 
GLOBAL ROUTINE SMGSCREATE KEY. TABLE ( | 
KEY TABLE_ID: REF VECTOR [, LONG 

= 


= 
o 
Ww 


le 


FUNCTIONAL DESCRIPTION: 


This procedure creates a key-definition table, which can then have 
sey definitions added to it by calls to SMGSADD_KEY_DEF, 
SMGSDEFINE_KEY and SMGSLOAD_KEY_DEFS. 


i CALLING SEQUENCE: 


RET_STATUS.wlc.v = SMGSCREATE_KEY_TABLE ( 
KEY_TABLE_ID.wl.r) 


i FORMAL PARAMETERS: 


| 
| 
KEY_TABLE_ID A longword into which is written the identification 
of the gous y-erestes key-definition table. This 
identification can then be passed to other Screen 
Management procedures to uniquely identify this set 
of key definitions. 
| 
| 
| 


POPIPIPIPIPPIPYPINIPIPIPIPIPINIPINIPININIPINPINPIPYINPINY EO 


09.09 09 09 09 09 09 0909 09 NI NI NI SN NN NN SOAP AAA AAA A MMMM BBE EEE EEE OOD 


NONE 
i IMPLICIT OUTPUTS: 
i NONE 

i COMPLETION STATUS: 


a ee dd od = = 2d od 


ooooo OOOOOOOOCO@OwMm OOO NINN NI NINN NINO OOOO 


S$S$_NORMAL Normal successful completion 
LIBS_INSVIRMEM Insufficient virtual memory 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
IMPLICIT INPUTS: 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
SIDE EFFECTS: 
i 
i 
i 
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PRPPIPOPOPPIPODIPIPIPINIPIPININININININININININININININYNY 
OOO NIA UNE UN SO OD NAUE WIN SO ODNOA UNE WIN OOD NOU EWR (CO ODNAULS W000 


ROPOPOROPOPONORONOPUPINUDS 2 tt a a 


NONE 

BEGIN 
08 
09 LOCAL 
10 KTH: REF KTH_R_KTH_STRUCT, ' Key table header 
11 VM_STATUS; 
18 ls 
14 ! Allocate and initialize the key table header. for a default terminator 
15 90 ! mask, use all control characters except those used by advanced Line 
16 91 i editing and <HT>. 
18 38 z 
19 94 VM_STATUS = LIBSGET_VM (ZREF(KTH_S_KTH_STRUCT), KEY_TABLE_ID (0)); 
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CREATE_REY_TABLE -Sep- SMGRTL.SRC SHGKEYPAD. 8 2:1 (3) 
IF NOT .VM_STATUS 
RETURN vn an 
KTH = TABCE 0035. 
= 
- 
ERS 


KTH Kina 
KTH TH f 0; 
LMASK) = XX'FRFFFFFF' = M_EDIT_KEYS = (1°K_HT); 


KTH. 
KTH (KTH 


C 
E 
6 
KTH CKTH- M 


'+ 

i Establish "DEFAULT® as the default state. The string contains 
i the default state name, a byte of zero, and two bytes for the 
keycode. 


UNT('DEFAULT') + 3; 
CLASS -$: 


Pune T ‘ber _STATE_STRING); 


RETURN SS$_NORMAL; 
END; ! End of routine SMGSCREATE_KEY_TABLE 
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-TITLE SMGSKEYPAD Screen Management Facility Keypad Pr 
; ocedures 
-IDENT \1=-006\ 


-PSECT _SMGSCODE,NOWRT, SHR, PIC,2 


54 4C 55 41 46 45 44 00000 P.AAA: .ASCII \DEFAULT\ : 
00 00007 BYTE 0 : 
-EXTRN CLISDCL_PARSE, CLISGET_VALUE 

-EXTRN CLISPRESENT, LIBSGET_VA 
~EXTRN CTBSANAL TIE. SD SC_R27 

-EXTRN LIBSSCOPY_R-DX 

-EXTRN LIBSSCOPY~DRDX 

-EXTRN LIBSSFREET_DD, LIBSSFREE1_DD6 
-EXTRN LIBSSFREEN-DD, LIBSSIGNAL 
“EXTRN LIBSINSERT_TREE 

-EXTRN LIBSLOOKU TREE 

-EXTRN LIBSTRAVERSE_TREE 

~EXTRN SHOSCREATE *STRIGAL _KEYBOARD 
.EXTRN SHGSDELETE VIRTUAL — KEYBOARD 
.EXTRN SMGSREAD_STRING 

~EXTRN one CSSKEYCODE _TO_NAME 

.EXTRN SMG —_— TO-KE CODE 

-EXTRN CLIS_FACICITY, CLI$_NOCOMD 
.EXTRN SMG$"FILTOOLON, SMCS. INVDEFATT 
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p 
SMGSCREATE_REY_TABLE ~Sep- age 6 


SMGRTL.SRC SMGKEYPAD. 7382; 31 (3) 


.EXTRN SMGS_INVKEYNAM, SMG$_INVSTANAM 
SEXTRN SMGS"KEYDEFPRO, SMGS$~KEYNOTDEF 
-EXTRN SMG$~NOMOREKEY 
SEXTRN SMGS"PREDEFREP, LIBSAB_UPCASE 
-EXTRN SMGSSAB_DEFKEY_CLD 
0076 .ENTRY SMGSCREATE_KEY_TABLE, Save R2,R3,R4,R5,R6 = 0239 
™ o of 6p puehe  KEY_TABLE_ID : 0294 
04 AE 42 = BF BR 8 MOV ZBL #567 4 (SPT : 
04 AE OF PUSHAB 4(SP) : 
000000006 00 9 FB 1 CALLS #2, LIBSGET yn : 
D E 1 BLBC VM’ STATUS : 0 95 
6 04 86 b0 1A MOVL okey TABLE. ID, KTH + 0298 
66 7C 0001 CLRO = (KTHY + 0299 
Ab ps CLRL (KTH) + 0301 
OC Ab F8 F 32 00 CVTWL 49 #1911, 12(KTH) : 030 
14 A6 O010E000A 8F dO 0 9 MOVL  #17694730, 20(KTH) : 031 
18 A6 20 A Hf 0031 MOV 32(KTH), 24(KTH) : 031 
20 Ab BE AF 9 28 00036 MOVC3 #8, P.AAA, 32(KTH) : 0317 
1 Ab DO 000 ¢ MOVL 3, 28(KTH) : 
10 Ab 56 00 0004 MOVL KTH, 16(KTH) > 0319 
50 01 DO 00044 MOVL #1, RO + 0321 
04 00047 1$: RET + 0323 


; Routine Size: 72 bytes, Routine Base: _SMGSCODE + 0008 
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GLOBAL ROUTINE SMG 
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FUNCTIONAL DESCRIPTION: 


This procedure adds a key definition to a table of key definitions. 
The table must have been created by a call to SMGSCREATE_KEY_TABLE. 


CALLING SEQUENCE: 


FORMAL PARAMETERS: 


KEY_TABLE_ID A longword containing the identification of the 
nyt gh hina table to which this definition is 
o be added. 


i 

i 

i 

i 

i 

i 

' 

i 

i 

i 

i 

i 

i 

' 

' 

} 

; 

: KEY_NAME A string containing the name of the key to be defined. 
! The a name is stripped of trailing blanks and is 
: converted to upperscane before use. The Rey name must 
\.\ TBS 
i 
i 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
i 
i 
1 
i 
i 
i 
i 
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COCOONS int tet pie einbodeee 


be one of the key names Listed in table -“* 


IF STATE A ates Congetning a state name which further qualifies 
KEY_NAME. If specified, this definition of KEY_NAME is 
used only if the current state is IF_STATE. Seé the 
description of ney states in the Screen Ronegongnt 

cation. If omitted, ‘DEFAULT’ 
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Functional Specif 
is used. 


ATTRIBUTES A longword bit mask speci tying additional attributes of 
this " definition. If omitted, a mask of zero is 
used, he attributes defined are: 


SMG$V_KEY_NOECHO - Bit 0 

If set, specifies that EQUIV_STRING is not to 
be echoed when this key is pressed. If clear 
EQUIV_STRING is echoed. If SMGS$V_KEY_TERMINATE 
is not set, SMGSV_KEY_NOECHO is ignored. 


SMG$V_KEY_TERMINATE - Bit 1 
If Set, specifies that when this key is pressed 
(qualified by IF_STATE), that the input line is 
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complete and that more characters should not be 
scespeess If clear, more more characters may be 
accepted. 


SMGSV_KEY_LOCKSTATE = Bit 2 
If set, and if STATE_STRING is spec ified. the 
state name specified by stare st ING remains the 
current state until expl cte'y changed by a 
supsequent bexatroge whose definition includes 
a STATE_STRING. If Gieac. the state name specified 
by STATE_STRING remains in effect only for the next 
defineable key. 


SHGSV_KEY PROTECTED = Bit 3 


set, indicates that this key definition cannot 
be modified or deleted. If clear, indicates that 
this key definition can be modified or deleted. 


SMGS$V_KEY_SETSTATE - Bit 4 
This bit is ignored by SMGSADD_KEY_DEF. It is 
returned by SAGSGET_KEY_DEF and SMGSLIST_KEY_DEFS 
to indicate that the key sets a state. 


The remaining bits are undefined and must be zero. 


EQUIV_STRING A string which is to be substituted for the keystroke 
in the returned Line. Unless SMGS$V_NOECHO is specified, 
the equivalence string is echoed. If omitted, no 
equivalence string is defined for this key. 


STATE_STRING A string containing a new state name which is to become 
the current state when this ner is pressed. If omitted, 
no new state is defined. If the current state is 
semporery (SMGSV_KEY_LOCKSTATE was not specified for 
the previous key), the current state reverts to 
the default state. 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
S$S$_NORMAL Normal successful completion 
SMGS_INVDEFATT Invalid key-definition attributes 
SMG$_INVKTB_ID Invalid 5 | Phe 24 id ; 
SMGS_KEYDEFPRO Key-definition is protected against change or deletion 


SMG$_PREDEFREP Previous key=defintt on replaced 
LIBS_INSVIRMEM Insufficient virtual me 


mor 
LIBS$_xxx Any error status from LIBSSCOPY_DXDX 
SIDE EFFECTS: 
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SMGSKEYPAD en Management Facility Keypad Procedures 16-Sep-1 AX-11 Bliss-32 v4.0 
1 ADD_KEY Y DEF 12-888 Sep-1 1382 9: $8; 29 anGRTLeS CISMGKEYPAD. 5 2;1 
: 364 1! NONE 
; 365 : } 
; e 1 
3 oe BEGIN 
5 0 LOCAL 
; ry KTH: REF KTH_R_KTH_STRUCT, } op table header 
s 37 KDE: REF KDE_R_KDE_STRUCT, ! Key definition entry 
: 7 NEW _KDE } Ps nter to new KDE 
: 374 TKEY: VECTOR (34, BYTE} ! fotet key (state-key) 
: 375 TKEY_DESC: BLOCK C Byte) i Descriptor for TKEY 
: 37 TKEY"DESC PTR: REF BLOCK C8, BYTE), i Pointer to a TKEY des 
; 37 TKEY-STATOS, ' Status from CONSTRUCT. _TKEY 
; 378 INSERT_STATUS, ' Status from insert 
; 379 COPY_STATUS1, COPY_STATUS2, ' Status from calls to 
3 80 COPY gel Atuss. COPY-STATUS4, ! LIBSSCOPY_ routines 
; 3} RET_STATUS; ' Our return status 
: 8 BUILTIN 
; 384 AP, 
3 HH NULLPARAMETER; 
; 386 
3 He '¢ 
3 4 x Define positions of arguments 
3 399 
; 391 iste, 
: 39 K_KEY_TABLE_ID = 1, 
: 9 K_KEY_NAME = ¢° 
: 394 K"IF_STATE = 3, 
: 395 KTATTRIBUTES = 4, 
; 96 K_EQUIV_STRING = 5, 
: 4 K_STATE_STRING = 6; 
: 399 1+ 
3 rts Vaitdate KEY_TABLE_ID and get the Key Table Header. 
: 40 
; ret SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); 
; 405 '¢ 
3 $06 t Construct TKEY from IF_STATE and KEY_NAME. 
: 408 
; 4609 TKEY_DESC CDSCSA_POINTER] = TKEY; 
; 410 TKEY_DESC_ PTR = DESC; 
; 411 TKEY-STATOS = CONSTROCT_ TKEY (.AP, .TKEY_DESC_PTR; TKEY_DESC_PTR); 
: oi IF NOT .TKEY_STATUS 
; 41 EN 
$ ret RETURN .TKEY_STATUS; 
; $18 INSERT STAs = rhieeeas RT_TREE ( 
: 41 AL. ykl RepneA ! Address s of treehead, 
; 418 est’ PIR 0, 0-0 :0), Descr tor of TKEY, 
3 41 IREF turn address of existing entry 
; 420 COMPARE ROUTINE, > total of compare routine 
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Screen Management Facility Keypad Procedures -Sep-1984 AX-11 B - 4. 
SHGSADD. KEY DEF Arvin “ aR Pan et Te hg ae Se TC 


13? ALLOC_ROUTINE, ! Address of allocation routine 
4 NEW_KBE, ! Address of new KDE 
0); ' Context = not used 


IF NOT .INSERT_STATUS 
RETURN . INSERT STATUS; 


'¢ 
_Check for previously defined ke). 


KDE 


RET ii ia matt NORMAL; ' Assume not previously defined 
ale KDE_V_DEF INED ! Already defined? 
EN REGIN 
RET_STATUS = SMG$_PREDEFREP; ' Success - Previous key definition replaced 


if KDE KDE_V_PROTECTED]J 
RETURN SMG$_KEYDEFPRO; 


' Key definition protected 


14 

' Turn off DEFINED and user attribute bits in KDE. Other bits might 
' still be set. 

Store items in new KDE. 


KDE KDE_V DEF INED) = 0: 
KDE CKDE-V"USER ATTR) = 
ETER (K Rt rRIBUTES) ! ATTRIBUTES present? 


If NOT NOLCPARAR 
THEN 


BEGIN 
4 KDE_V_USER_ATTR] = planed w * c033 
KDE “Hepe erated = 0: no state set. 


PUPV DV IUIUPUPUSVDUSUSUSUSUSUSUST SST SESSION E™ SS 


WAPIPIPONNNNONN NI BQO OO COCO O OO 


=O DOONAN EW 0 OD NOME WN $0 OONOA UE WIN 9 ODNAU EWN OO OWVNOU SW O0O@ 


CSOOSOSOCOOCOSOCOS SOOO OCOOCOCOOOOOOOOOOCOOOCOOOOOOOOOOOOOoO: 


33 IF (-KDE™ DE_L_ATTR] AND KDE_M RESERVED) NEQ 0 

33 eNRET URN SMG$_INVDEFATT; ! Invalid key-definition attributes 
2 If NOT .KDE CKDE_V_ TERMINATE] 

23 oe KDE CKDE_V_NOECHO) = 0; ! NOTERMINATE implies ECHO 
5 

33 COPY_ STATUS! = LIBSSCOPY_R_DX6 (. TREY DESC_PTR CDSC$W_LENGTH), 
54 ESC TR DSCSA_POINTER], KBE CKBE_R_TKEY_DESC)); 

24 IF NOT . COPY. STATU 

24 RETURN Sane 

24 1F NOT NULLPARAMETER (K_EQUIV_STRING) 

54 BEGIN 

54 COPY_STATUS2 = L 1B$s COPY Y bx0x6 (EQUIV_STRING (0,0,0,0), 

54 RDE CKDE_R FQULy OE 

22 Y-STATUS 


ea * . COP 
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1-006 SHGSADD_KEY DEF —— 14-Sep 138% 0: 8; ‘9 SMGRTL.SR RC ISMGKE UBF ago, 1 . (4) 
; 47 : ‘ RETURN .COPY_STATUS2 : 
; 47 END 3 
; : 2 ¢ 3343 IF .KDE CKCE_A_EQUIV_POINTER] NEQA 0 ; 
: rt 82 § LIBSSFREE1_0D6 (KDE CKDE_R_EQUIV_DESC]); ; 
; 484 0858 IF NOT NULLPARAMETER (K_STATE_STRING) ' STATE present? : 
; 485 559 THEN 3 
: 486 0560 BEGIN : 
; 487 0561 COPY STATUS? = bi essCOrt re (STATE_STRING (0,0,0,0], : 
: 488 8286 RDE E_R_STAT 3 
; 489 56 IF NOT teee “STATUS3™ ; 
; 490 564 TH _ ; 
; «6491 565 .COPY_STATUS3; $ 
; 49 0566 KDE Fepe y _SETSTATE) = 1; § 
; 49 0567 END $ 
: $38 TF: ELSE IF .KDE CKDE_A_STATE_POINTER] NEQA 0 ; 
; 496 0570 LIBSSFREE1_DD6 (KDE CKDE_R_STATE_DESC)); ; 
; 497 0571 3 
; 498 bare + 3 
; 499 057 ! If this is a control key. aes that key's ; 
; 500 0574 2 ! bit to the terminator mask : 
; 501 0575 in 3 
; Ne 0576 s 
; 3 0577 KTH Wie Hat TERM_MASK] = .KTH CKTH_L_TERM_MASK] OR 3 
: 504 0578 § RDE = “TERM “MASKI; : 
s 305 0579 3 
; 506 0580 2 + ; 
; 507 0581 ! Indicate that definition is valid and return success. : 
; 508 Beng t= 3 
; 509 058 : 
s 310 0584 KDE CKDE_V_DEFINED) = 3 
3s 6ST7 0585 RETURN .RET_STATUS; : 
3 21g 0586 3 
; 31 0587 1 END; ! End of routine SMGSADD_KEY_DEF : 
OFFC 00000 -ENTRY SMGSADD_KEY_DEF, Save R2,R3,R4,R5,R6,R7,R8,-; 0325 3 
E 34 ¢ sua2 ash sh 
5 04 BC 06 09908 MOVL  @KEY_TABLE_ID, KTH ; 0477 ; 
6 1 494 BEQL ; 5 
5A 10 AA 01 be CMPL 16(KTH), KTH : : 
gs 3 F BEQL 3 : 
50 00000000G 8F ? \} 1$ move #SMG$_INVKTB_ID, RO 3 . 
0c ag 19 AE 9E 19 2% MOVAB TKEY, TKEY_DESC+4 3 ott 3 
0 AE 3 1 MOV TKEY_DESC, TKEY_DESC_PTR ; 0484 3 
oo00v CF 05 F CALLS #0, CONSTRUCT, TKEY oem 
50 9 A BLBC 3EOrs«K EY. STATUS, 3$ > 0486 : 
E * D CLAL -(SPJ : 0492 3 
08 AE F fF PUSHAB NEW_KDE ; é 
| 
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REGEN —_SAGEEEVTREYOSERTE FcTUSty Kevoed Procedures JE-sep- 184 OB:G8:S9  Uekants SSAESanecE tA Ra 682.1 ds 
3; 333 5 1 ZSBTTL 'SMGSGET_KEY_DEF’ : 
; 1 0 83 1 GLOBAL ROUTINE SMGSGET_KEY_DEF ( : 
. 3 0 1 KEY_TABLE_ID: REF VECTOR C, LONG), : 
; $18 0591 1 — KEY"NAME: “REF BLOCK [, Byte}. E 
>; 519 3 1 IF STATE: REF BLOCK prre ’ : 
: 330 93 1 ATTRIBUTES: REF VECTOR C, LONG) ; 
; 521 94 1 — EQUIV_STRING: REF BLOCK . pyres, 
- ¢ 595 1 STATE_STRING: REF BLOCK C, BYTE ; 
; 3 596 1 )= ; 
: 358 0898 | i+ 
; 26 0599 1 i FUNCTIONAL DESCRIPTION: 
: 528 0601 1 | This procedure returns the key definition associated with a : 
; é 2 Fe i specified key and state name. 
; 231 0604 1 ' CALLING SEQUENCE: 
: 338 0606 1! RET_STATUS.wlc.v = SMGSGET KEY DEF ( ; 
; 534 0607 1! KEY_TABLE_ID.rl.r, : 
; 3 0609 1! » CIF STATE.rt.dxJ : 
s Sor 0610 1! , CATTRIBUTES.wl.rJ : 
; joe 0611 1! . CEQUIV_STRING.wt.dx] ‘ 
: e728 pelg : » CSTATE_STRING.wt.dxJ JJ]J) : 
; 341 0614 1 | FORMAL PARAMETERS: ; 
: 248 061 1/ KEY_TABLE_ID A longword containing the identification of the : 
: 544 $617 1! = key-definition table in which this key is ; 
; se? gels : to be looked up. : 
: 547 0620 1 } KEY_NAME A syring containing the name of the key whose : 
; 548 0621 1! definition is to be returned. : 
> 549 b8s§ i The as | — is eer seeed of rene the planks yet ae : 
; : ed to upper-case before use. : 
: af 0634 ' : be one of the +“ names Listed in table Bn TBS _\_\. : 
° 55 6 ! ‘ ° 
: : F_STAT A string containing a state name which further qualifies ; 
; $38 $659 woven KEY_NAM « if omitted. the null state is used. : 
: 23 0699 1! ATTRIBUTES A longword into which is stored the attributes : 
s 3o7 0630 1! bitmask for this key definition. See the description : 
; 558 88 1 : of SMGSADD_KEY_DEF for more information. : 
: 386 a634 1! EQUIV_STRING A string into which is stored the equivalence-string ; 
; 26) bee : } for this key definition. : 
: i T TR A string into which is stored the new state-name, | : 
: $65 0639 i i es it ony, whieh 1s set by this key definition. If this : 
: 565 Oe 1! key definition sets a state, the ATTRIBUTE flag : 
: 3 $39 1! SMGSV_KEY_SETSTATE is set. ; 
: 367 640 1} | : 
; i rat : IMPLICIT INPUTS: | : 
: 3% ge8 NONE : 
; Sri 0644 1! : 

| 
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SMGSKEYPAD Screen Renesgegnt Facility Keypad Procedures 16-Sep-1 0 AX-11 Bliss-32 V4. Pp 5 mM 
ese SNGSGET_KEY DEF 1Prgee gee Oe eee Hee ca TORE SRGKL TPAD B92: age of . 
; i ot? ! IMPLICIT OUTPUTS: : 
: 574 gc9 1 i NONE : 
; to 28 1! 3 
i 3 649 1 | COMPLETION STATUS: ; 
; 278 e31 1 S$S$_NORMAL Normal successful completion : 
3 79 6 § 13 SMGS_INVKTB_JD Invalid key-table A. : 
: 580 653 1! snos “KEYNOTDEF Key is not define : 
; 28) et: ! “XXX Any error status _o LIBSSCOPY_DXDx : 
; $88 on SIDE EFFECTS: : 
: 585 658 1 | NONE : 
: e88 0659 1} 3 
. a see 1 i- F 
; 588 661 1 $ 
; 434 se BEGIN : 
: 591 0664 LOCAL : 
3 236 0665 FOUND_KDE, ' KDE found 3 
: 0666 KDE: REF KDE_R_KDE_STRUCT, ' Key definition entry 3 
; 594 0667 KTH: REF KTH_R_KTH BID ts ' Key table header : 
3; 595 0668 TKEY: VECTOR (34, a. EJ ' Total key (gtaterkey) : 
; 596 0669 é TREY _DESC: BLOCK Byte i Descriptor for TKEY 
: 597 0670 TKEY-DESC_PTR: REF BLOCK C8, BYTE, i Pointer to TKEY_DESC 
; 598 0671 ¢ TKEY os Aros S, ' Status from CONSTRUCT TKEY 
; 599 0672 LOOKOP_STATUS, ' Status from LIBSLOOKUP_TREE 
: 600 0673 § COPY_ STATUST COPY_STATUS2, ' Status from calls to 
: rt bebe COPY “STATUSS; ! LIBSSCOPY_ routines 
3 605 0676 ; BUILTIN 
4 605 0678 é NULLPARAMETER; 
: 607 0680 2 1+ 
: t+ eh § Define positions of arguments 
: 610 0688 ' 
3; «6611 0684 LITERAL 
; 612 0685 K_KEY_TABLE_ID = 1, 
3; «61 0686 K-KEY_NAME = ¢- 
> 614 0687 K-IF_STATE = 3, 
: 615 0688 KTATTRIBUTES = 4, | 
: 616 6 KTEQUIV_STRING = 5, 
; 617 690 KTSTATE-STRING = 6; 
3 619 69 rr 
; ? O87 Validate KEY_TABLE_ID and get the Key Table Header. 
: 6 695 
; 6 § 696 SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); | 
> 625 69 ‘4 
5 e $ $ a Construct TKEY from IF_STATE and KEY_NAME. 
: 628 701 
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MGSKEYPAD Screen Management Facility Keypad Procedures 16-Sep-1984 00:48:4 AX-11 Bliss-32 V4.0-74 Page 16 ! 
aeobe SMGSGET_KEY DEF Bes 122808 -13Re 99:58:29 SMGRTL SREISMEKEYPAD B92: 1 ’ (5) ; 
; 629 7 3 TKEY_DESC CDSCSA_POINTER] = TKEY; : 
: 630 7 TKEY-DESC_PTR = TKEY DESC; : 
; 631 704 TKEY-STATOS = CONSTROCT_TKEY (.AP, .TKEY_DESC_PTR; TKEY_DESC_PTR); | ; 
; § § 705 IF NOT .TKEY_STATUS : 
3; 8 3288 THEN ‘ 
> 634 7 RETURN .TKEY_STATUS; : 
; 635 708 : 
5 © : 709 14 ; 
; 6 710 : Look up key name. . 
; 638 711 i ; 
; 639 ie ; 
; 640 71 LOOKUP STATUS = LIBSLOOKUP_TREE ( : 
; 641 714 KTA_CKTH_A_TREEHEADJ, ! Address of treehead ; 
3 ong 0715 » TKEY_D R ' Total state-key string . 
; 64 O76 COMPARE ROUTINE, i Key comparison routine : 
> 644 071 FOUND KDE); ! Pointer to found KDE ; 
; 645 0718 IF NOT .LOOKUP_STATUS : 
> 646 0719 THEN : ; 
; 647 4 ? RETURN SMGS$_KEYNOTDEF ; ! Key not defined ‘ 
; 649 $7 é + ; 
; 650 07 ! If KDE is not defined, return ‘'not found". : 
: 682 0795 i 
; 63 0726 KDE = .FOUND_KDE; : 
; 654 0727 IF NOT .KDE CKDE_V_DEFINED] : 
3 699 0728 HEN ; 
3 028 fi 4 RETURN SMGS_KEYNOTDEF; ! Key not defined ‘ 
: 658 0731 + ; 
; 659 073 ! Store values. ; 
: bet 0734 2 
; 296 0735 IF NOT NULLPARAMETER (K_ATTRIBUTES) ‘ 
; 66 boE9 THEN : 
; 664 07 f ATTRIBUTES CO] = .KDE CKDE_L_ATTR] AND KDE_M_USER_ATTR; : 
: 666 $739 IF NOT NULLPARAMETER (K_EQUIV_STRING) ; 
; 667 0740 THEN : 
: 668 0741 BEGIN : 
: 669 toe COPY_STATUS1 = LIBSSCOPY_DXDX6 (KDE CKDE_R_EQUIV_DESCJ, ‘ 
; 670 074 QUIV_ STRING [0,0,0,0]); : 
3 671 744 IF NOT .COPY_STATUS/ : 
; 67 745 HEN : 
3; «667 746 RETURN .COPY_STATUS1; ° 
; 674 Bree END; : 
; 675 748 : 
3; 67 0749 IF NOT NULLPARAMETER (K_STATE_STRING) : 
> 67 750 THEN : 
: 678 751 BEGIN : 
3; 679 3¢ COPY_STATUS2 = LIBSSCOPY_DXDX6 (KDE CKDE_R_STATE_DESC), ; 
; 680 75 STATE STRING (0,0,0,0]); | ; 
; 681 754 IF_NOT .COPY_STATUS2 : 
; 68 755 THEN : 
; 68 £38 RETURN .COPY_STATUS2; : 
: 684 BF ND; | : 
; 685 758 | : 
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MGSKEYPAD Screen Management Facility Keypad Procedures 16-Sep-1984 748: AX-11 iss- .0- Ss! 
wits SMGSGET KEY DEF re, 1o28e0-13ke 99:60589 — EShcn te See Sshene Pan 6S2.1 oo RY 1. 
: 68 oe ; RETURN S$S$_NORMAL; | : 
Py P 
; 6 761 END; ! End of routine SMGSGET_KEY_DEF | : 
‘ 

‘ 

: 

O1FC 000 .ENTRY SMGSGET_KEY_DEF, Save R2,R3,R4,R5,R6,R7,R8 ; 0589 ; 

58 000000006 90 9 a092 HOVAB LIBSSCOPY_DRDX6, RB : . : 

0 ¢ 00 SUBL2 #48, SP : ; 

04 BC p 990 MOVL aKEY_TABLE.ID, KTH + 0696 ; 

52 10 Ke pi 001 cAPL TGCKTH), KTH : : 

50 000000006 oF p6 00018 1$ MOVL #SMG$_INVKTB_ID, RO : ; 

08 Ag C AE 9E 00020 2$ MOVAB TKEY, TKEY_DESC+4 + 070 ; 

5 4 AE 4 0025 MOVAB TKEY_DESC,~TKEY_DESC_PTR : 070 ; 

56 5C DO 00029 MOVL AP, + 0704 : 

0000v CF 00 FB 00 ¢ CALLS #0, CONSTRUCT_TKEY : ; 

64 50 €9 00031 BLBC  §-TKEY_STATUS, 8S + 0705 ; 

5E DD 00034 PUSHL  $P : 0714 ; 

0000Vv cr 9F 00036 PUSHAB COMPARE _ROUTINE ; : 

0084 F 6B it PUSHR #*M<R2,R7> : 3 

000000006 00 04 FB 000 : CALLS #4, LIBSLOOKUP_TREE : ; 

08 0 £9 0004 BLBC + LOOKUP_ STATUS, ~3$ : 0718 ; 

57 6E DO 00048 MOVL § FOUND_RDE, KDE : 0726 ; 

33 A? «(95 00048 TSTB = 51 (KDE) : 0727 ; 

08 19 0004E BLSS 6s A$ ; : 

50 000000006 8F pd 20039 3$ MOVL #SMG$_KEYNOTDEF, RO : 0729 : 

04 6C 91 00058 4$ CMPB sé AP), #4 + 0735 3 

OA 1F 00058 BLSSU5$ : : 

10 AC D3 9005p TSTL  16(AP) : ; 

05 13 00060 BEQL 6‘ 5$ ; ; 

10 BC 30 A? 9A 0006¢ MOVZBL 48(KDE), @ATTRIBUTES : 0737 ; 

05 6c 91 9006 5$: CMPB. CCAP), «5 : 0739 3 

12 1F OO06A BLSSU 6$ ; : 

“ 2 D3 0006C TSTL 20¢AP) ; 3 

0b 13 0006F BEQL © 6$ F : 

59 4 =A 9 0071 MOVAB 20(KDE), RO > 074 : 

51 14 AC 00 00075 MOVL EQUIV_STRING, R1 : 074 : 

68 1g 9079 JSB LIBSSCOPY Dxbx6 ; : 

1A ; 0078 BLBC COPY_STATOS1, 8$ : 0744 : 

06 6¢ 1 S007E 6$ CMPB Ss) > 6 : 0749 : 

12 1 00081 BLSSU 7$ ; : 

18 AC 03 0085 TSTL g4 (AP) ; : 

0D 1 BEQL § ; : 

50 1¢ «(OAT 4 00 MOV 28 (KDE), RO ; 0752 3 

51 18 ac DO 00 MOVL STATE STRING, R1 : 075 ; 

if JSB LIBSSCOPY _DXOx6 ; : 

93 0 € 9 BLBC —- COPY STATOS2, ag : 0754 : 

0 1 bd 95 7$: MOVL #1, R : 0759 : 

4 00098 8$: RET : 0761 : 

; Routine Size: 153 bytes, | Routine Base: _SMGSCODE + 0169 : 
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SMGSKEYPAD Screen Management Facility Keypad Procedures 1b-se “1984 00:48:4 AX-11 Bliss-32 V4.0-74 
1-006 SHGSDELETE. REY DEF dress o23ep-138e 39:05:8) — ESkcrte sreismextvean 682.1 
; 690 7 ¢ 1 ZSBTTL ‘SMGSDELETE_KEY DEF’ 
; 691 7 1 GLOBAL ROUTINE SMGSDELETE_KEY_DEF ( 
; 69 764 1 KEY_TABLE_ID: REF VECTOR [, LONG), 
: 69 765 1 KEY-NAME: "REF BLOCK [, Byte). 
> 694 £98 1 IF_ STATE: REF BLOCK C, BYTE 
; 695 767 «(1 )= 
; 69 768 #1 
; 69 168 1 S44 
3 o38 1 : } FUNCTIONAL DESCRIPTION: 
; 700 brs 1! This procedure deletes a key definition from the specified table 
; 701 p77 1! of key definitions. 
wR ; 774 (1! 
; 0775 1 ! CALLING SEQUENCE: 
: 704 b776 1! 
3 709 O777 1! RET_STATUS.wlc.v = SMGSDELETE_KEY_DEF ( 
: 706 0778 1! KEY_TABLE_ID.rl.r, 
: 707 0779 1! KEY_NAME .rt.dx 
; 708 0780 1! C, CIF_STATE.rt.dxJ J) 
; 709 0781 1! 
; 710 14-14 1 ! FORMAL PARAMETERS: 
ee ah 0783 1! 
3 ay 0784 1! KEY_TABLE_ID A longword containing the identification of the 
3; 7% 0785 1! key-definition table from which this key is 
: 714 0786 1! to be deleted. 
s 715 0787 1! 
; 76 0788 1! KEY_NAME A string containing the name of the key which is 
: 717 0789 1! to be deleted. 
; 718 0790 1! The an name is stripped of trailing blanks and is 
s 719 0791 1! converted to upeet=saee before use. ® Rey name must 
; ee B88 : } be one of the key names Listed in table _\_\ TBS _\_\. 
3 re 0794 1! IF STATE A string containing a state name which further qualifies 
3 fe 0795 1! KEY_NAME. If omitted, the null state is used. 
; 724 0796 1! 
3 es 0797 1°! IMPLICIT INPUTS: 
s feo 0798 1! 
s Yer 0799 1! NONE 
: 728 0800 1! 
; 729 0801 1 ! IMPLICIT OUTPUTS: 
3; 730 44 1! 
te 08053 1! NONE 
3 rag 0804 1! 
3 734 03 5 : } COMPLETION STATUS: 
3 735 807 1! SS$_NORMAL Normal successful completion 
; 736 4 SMGS$_INVKTB_ID Invalid key-table i 
: al 1! SMG$_KEYNOTDEF Key is not defined 
3 o38 ! : SMG$_KEYDEFPRO Key definition is protected 
3; 740 ' SIDE EFFECTS: 
: § 1! NONE 
: 1: 
: 1 lee 
: 1 
; 2 BEGIN 
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e806 
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en Mana 
DELETE_ 


ponent Facility Keypad Procedures 
EY_DEF 


BUILTIN 
AP; 


+ 
Define positions of arguments 


LITERAL 
K_KEY_TABLE_ID = 1, 
K-KEY-NAME = 2, 
KTIF_STATE = 3: 


'+ 


AX-11 
SMGRTL. 


KDE found 

Key definition entry 

Ket table header 

Total key (state-key) 
Descriptor for TKEY 

Pointer to a TKEY desc 
Status from CONSTRUCT_TKEY 
Status from LIBSLOOKUP_TREE 


Validate KEY_TABLE_ID and get the Key Table Header. 


SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); 
+ 
Construct TKEY from IF_STATE and KEY 


TKEY_DESC CDSC$A_ POINTER] = TKEY; 
TKEY-DESC_PTR = TKEY DESC; 

TKEY STATOS = CONSTROCT_TKEY (.AP, .TK 
IF NOT .TKEY_STATUS 


HEN 
RETURN .TKEY_STATUS; 


+ 
Look up key name. 


LOOKUP_STATUS = LIBSLOOKUP_TREE ( 
KTA_CKTH A TREEHEADJ, 

COMPARE ROUTINE, 

FOUND KDE); 

1F NOT LOOKUP’ STATUS 
RETURN SMG$_KEYNOTDEF; ! Key not 


KDE = .FOUND_KDE; 
IF NOT’. KDE TKDE! V_DEFINEDJ 


RETURN SMG$_KEYNOTDEF ; 


' Key not 


_NAME. 


EY_DESC_PTR; TKEY_DESC_PTR); 


' Address of treehead 

' Total state-key string 

: poy comparison routine 
Poin 


ter to found KDE 


defined 


defined 
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i Delete key definition by irgetng the strings and clearing KDE_V_DEFINED. 


! We can't actually remove this K 
the same key is redefined. 


“pe CKDE_V_ DEFINED) = Invalidate KDE 


0; ! 
KDE CKBE_A_EQUIV_POINTER) N 
HEN 


nvali 
EQA 0 
LAOS er ee | pee (KDE CKDE_R EQUIV_DESC)); 
koe KDE_A_STATE_POINTER] RNEQA 0 
STA 


IF 
THE 

LIBSSFREE1_DD6 (KDE CKDE_R_STATE_DESC)); 
IF .KDE CKDE_A_PREFIX_POINTER) NEQA 0 


THEN 
LIBSSFREE1_DD6 (KDE CKDE_R_PREFIX_DESCJ); 


14 
! If this was a control key, reflect the deletion 
in the KTH. 


KTH CKTH_L_TERM MASK] = .KTH CKTH_L_TERM_MASK] AND 
(NOT~.RDE CRDE_L_TERM_MASK]); 


'¢ 


from the tree, but it can be reused if 


! Note that we can't free TKEY since it needs to be compared 


against in future searches. 


RETURN SS$_NORMAL; 


END; ! End of routine SMGSGET_KEY_DEF 


O3FC 00000 -ENTRY 
59 000000006 98 9E 00002 OV 
5 0 C2 00009 SUBL 
5 04 BC D 0 MOVL 
8 1 1 BEQL 
58 10 A& D 1 CMPL 
ge 1 1 BEQL 
50 00000000G 8F 00 00018 1$ MOVL 
Be OO1F RET 
08 ag oc AE 9E 9 2s MOVAB 
5 4 AE 43 MOVAB 
56 C OD 9 MOVL 
0000Vv gf 8 4 C CALLS 
2 E 3 1 BLBC 
E 4 4 PUSHL 
0000Vv gf F 000 PUSHAB 
7 DD O003SA PUSHL 


SMGSDELETE_KEY_DEF, Save R2,R3,R4,R5,R6,R7,- 


R8R 
LI SSEREE1_DD6, R9 
@kEY_TABLE_ID, KTH 
18(KTH), KTH 
#SMG$_INVKTB_ID, RO 


TKEY, TKEY_DESC+4 
TKEY DESC, TKEY_DESC_PTR 


AP, 
#0; CONSTRUCT_TKEY 
TKEY_STATUS, 8$ 


COMPARE _ROUT INE 
TKEY_DESC_PTR 
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135 bytes, Routine Base: 


3; Routine Size: 


* | 
SMGSKEYPAD Screen Management tccility Keypad Procedures 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 Page 23 ! 
esoe SMGSSET_DEF ULT. STATE Pattee 12-80 8-138e 99508589 SMGRTL.SRCISMGKEYPAD.B 2:1 . 3 ; 
; 839 910 1 SSBTTL ‘SMSSSET_DEFAULT_STATE' : 
; 840 911 1 GLOBAL ROUTINE SHeSsET PEF AULT STATE ( . 
: 841 318 1 KEY_TABLE_ID: REF VECTOR ONG), : 
: 84 913 1 NEWWSTATE? REF BLOCK .. Byte, ; 
; «684 914 1 OLD_STATE: REF BLOCK C, BYTE 3 
> 844 915 1 ds ; 
; St? 218 1 3 
> 846 0917 1 S44 ; 
; 847 Bais 1 ! FUNCTIONAL DESCRIPTION: 3 
; 848 0919 1! 3 
; 849 0920 1! This procedure sets a new default state name and/or returns the ; 
: gee 8 } ! } default state name for a key definition table. : 
; o2¢ 09 § 1 ! CALLING SEQUENCE: ; 
; 85 0924 1! 3 
: 854 0925 1! RET_STATUS.wic.v = SMGSSET_DEFAULT_STATE ( 2 
; 855 09 $ 1! KEY_TABLE_TD.rl.r, : 
; 856 09 1! EQ_STATE.rt.dxJ . 
: 857 0928 1! , COLD_STATE.wt.dxJJ) . 
; 858 0929 1! ; 
; 859 0930 1 ! FORMAL PARAMETERS: : 
; 860 0931 1! 3 
; 861 414 1} KEY_TABLE_ID A longword containing the identification of the : 
3 £66 0933 1! key-definition table for which the default state ; 
3 yt bake : name is to be set or returned. : 
; 865 0936 1! NEW_STATE A string containing the new default state name to be set : 
: 866 0937 1! for this key-definition table. If omitted, the 3 
; 867 0938 1! existing default state name is unchanged. : 
; 868 0939 1! The state name is converted to upper case and is 3 
g 59) Bead ; stripped of trailing blanks before use. : 
3 687) 0942 1! OLD_STATE A string into which is written the existing default ; 
; ars 0945 1! state name of the key-definition table. : 
3 87 0944 1! 3 
: 874 0945 1 ! IMPLICIT INPUTS: 3 
3 87> 0946 1! 5 
; 876 0947 1! NONE 3 
3 ger 0948 1! 3 
: 878 0949 1°! IMPLICIT OUT?UTS: F 
$ 444 0950 1! 3 
; 880 0951 1! NONE 3 
; «4881 B826 . 3 F 
: HT $327 : COMPLETION STATUS: : 
3 aae bees 1! S$S$_NORMAL Normal successful completion 3 
3 5 956 1! SMGS_INVKTB_ID Invalid key-table id : 
; ¥3 pee 1! SMGS_INVSTARAM Invalid state name 3 
5 fi 228 : LIBS_INVSTRDES Invalid string descriptor | : 
: 389 960 1 ! SIDE EFFECTS: 3 
; 890 961 1! 3 
; 891 306 1! NONE $ 
; 89 965 1! F 
; 89 964 1 !-- 3 
P+ 94 965 1 | e 
; 895 0966 2 BEGIN ; 


SDC LL LLL LL LLL LLL LLL LL LL LC te 
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SMGSKEYPAD Screen Management Facility Keypad Procedures 1base -1984 00:48: AX-11 Bliss-32 V4.0-74 Page 24 
1-006 SHGSSET DEFAULT. STATE . ” 1o-ge8-13Re 9038584 SMGRTL.SRCISMGKEYPAD .B 2;1 ° 3 
; 8 967 $ 
; 89 96 LOCAL : 
5 28 38 KTH: REF KTH_R_KTH_STRUCT; ! Key table header ‘ 
; 900 97 BUILTIN 3 
; 901 97 NULLPARAMETER; : 
; 90 97 3 
; 90 974 '+ 3 
; 904 975 ! Define positions of arguments : 
; 905 4 l= 3 
; Ww 097 $ 
; 90 bare LITERAL : 
; 908 979 K_KEY_TABLE_ID = 1, 3 
; 909 454 K_NEW_STATE= 2 3 
: 910 981 KTOLD“STATE = 8; : 
3; «911 4-04 3 
3 at 98 '+ 3 
; Biz Baae Validate KEY_TABLE_ID and get the Key Table Header. : 
3 915 0986 ; 
; 916 098 SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); ; 
; «917 0988 3 
; 918 0989 1+ : 
3; 919 0990 ! Return the old default state name, if requested. 3 
; 920 0991 te 3 
; 921 099 3 
3; 9 § 099 IF NOT NULLPARAMETER (K_OLD_STATE) : 
: 92 0994 THEN 
3 ase 0995 BEGIN 
; 925 0996 LOCAL 
; 926 0997 COPY_STATUS; 
s Per 0998 COPY_STATUS = LIBSSCOPY R_DX6 ((.KTH CKTH_W_DEF_STATE_LEN] = 3), 
: 928 0999 RTH CKTH_T_DEF_STATE_STRINGJ, OLD_STATE C0,0,0,0)); 
; 94 1000 IF NOT .COPY_STATUS 
; 930 1001 THEN 
; 931 1008 RETURN .COPY_STATUS; 
$ oe6 100 END; 
; 2 1004 
: 934 1005 '+ 
; 935 1006 ' Set the new default state, if requested. 
; 936 1007 !- 
3 ote 1008 
; 938 1009 IF NOT NULLPARAMETER (K_NEW_STATE) 
3; 939 1919 THEN 
; 940 1011 BEGIN 
3: 941 1018 OCAL 
3 94 101 NEW_STATE_PTR, ! Pointer to string 
> 94 Ha NEW STATE_LEN: WORD, ' Length of string 
3 944 1015 CHAR _PTR, ' Pointer to current character 
: 945 1916 KEY_PTR ' Pointer to current pos in TKEY 
: 9% 101 ANL STATUS; | Status from LIBSANALYZE_SDESC 
; 94 9 
; 948 101 '¢ 
; 949 1020 ! Analyze NEW_STATE string. 
: 950 1021 ! 
; 951 1 § 
3; 952 1 


ANL_STATUS = LIBSANALYZE_SDESC_R2 (NEW STATE C0,0,0,02; 
| 
| 


10 
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; 953 1024 NEW_STATE_LEN, NEW_STATE_PTR); 
; 3 ; 5 IF NOT TANL_STATUS : 
: is 19 ? RETURN .ANL_STATUS; 
: 998 19 ; IF <NEW.STATE_LEN GTRU 31 
: 960 1031 RETURN SMGS_INVSTANAM; ! Invalid state name 
: 36) 1988 | 
° ‘¢ 
; 38 19 ¢ Aes position of last non=-blank character. 
: % 1037 CHAR_PTR = .NEW STATE PTR + .NEW STATE_LEN; 
: 967 1038 ; WHILE. ((CHAR_PTR=. CHAR_PTR=1; CHSRCHAR(< CHAR PTR) ) EQLU %C' ') DO 
: 969 1040 4 NEW_STATE_LEN = .NEW STATE_LEN - 1; 
: 970 1041 4 IF TNEW_STATE_LEN EQC 0 THEN EXITLOOP; 
oh EG zs 
: 97 1044 KEY_PTR = CHSTRANSLATE (LIBSAB_UPCASE, .NEW_STATE LEN, .NEW_STATE_PTR, 
; 974 1045 QO, .NEW STATE LEN, KTH CKTA_T_DEF_STATE_STRINGJ); 
; 975 1046 CHSWCHAR_A TO, KEY_PTR); 
: 976 1047 ; KTH CKTHTA_DEF_KEYCODE] = .KEY_PTR; 
> 977 1048 KTH CKTHIW_DEF_STATE_LEN] = .NEW_STATE_LEN + 3; 
: 978 1049 : END; 
: 979 1050 
; 980 1051 ‘ RETURN SS$_NORMAL; 
: 982 1088 1 END; ! End of routine SMG$SET_DEFAULT_STATE 
0O0FC 00000 ENTRY SNGSSET_DEFAULT_STATE, Save R2,R3,R4,R5,R6,-; 0911 
57 04 BC 00 00002 MOVL § @KEY_TABLE_ID, KTH + 0987 
06 13 00006 BEQL si : 
57 10 A? 01 00008 CMPL 16(KTH), KTH : 
08 13 0000C BEQL : 
50 000000006 8F v6 90005 1$: MOVL #SMG$_INVKTB_ID, RO : 
03 6C r 0016 2$: CMPB (ap), #3 > 0993 
1D 1F 0001 BLSSU 3$ : 
Oc ac D3 0 1B TSTL  12¢AP) : 
18 1 If BEQL $ ; 
51 20 A 3 0 OVAB (KTH), R1 + 0999 
0 4 A? 0 4 MOVZWL 20(KTH). RO : 0998 
0 03 C 8 SUBL2. #3, RO ; 
2 oc AC D B MOVL OLD_STATE, R2 : 0999 
000000006 00 18 F JSB LIBSSCOPY R_DX6 : 
50 f BLBC  COPY_STATOS; 8$ : 1000 
02 é¢ 1 3$: CMPB SAP); : 1009 
08 AC bS 00% PESSU ae ap) ; 
re Be id BEQL As : 
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MGSKEYPAD Screen Management Facility Keypad Procedures 16-Sep-1984 248: AX-11 Bliss-32 V4. Page 

a tity SMGSSET_DEFAULT_STATE Ati 1 =3eP 71 8e 90:38:84 SMGRTL.SR Ae ishextvPap 6 B32;1 ° 3 

50 AC 00 4 MOVL NEW_S : 

000000886 5 1 te JSB PTBSANALY te” pese _R2 : 

6 1D 4C MOVL TATE gL LEN™ : 

6 0 €£ af BLBC ANL Mars: : 

iF 6 Bi 0005 CMPW NEWTSTAT Eten, #31 : 

3 1B 0005 BLEQU $ 

50 000000006 &F pO a03¢ MOVL #SMG$_INVSTANAM, RO : 

50 ae F 4$ MOVZWL NEW_STATE_LEN, CHAR_PTR : 

30 ¢ 0068 ADDL NEW" STATES ay ps HAR-PTR : 

2 1 00065 5$ CMPB -(CRAR_P : 

94 \g 0068 BNEQ 6 : 

6 B 6A DECW NEW_STATE_LEN : 

ry. ta b006C BNEQ Wy : 

000000006 00 00 62 56 2E O0GE 6$ MOVTC NEW _STATE_LEN, (NEW_STATE_PTR) : 

20 =A 56 00 LIBSAB UPCASE, NEW_STATE_CEN, $oeetuy : 

85 94 OO07A CLRB KE : 

1c «=A? 55 pO 0007C MOVL Key "eTR. 28(KT : 

14 A7 56 03 Al 00080 ADDW3 “NEW_STATE TtEN, 2 (KTH) : 

50 01 DO 00085 7$: MOVL ne RO ~ : 

04 00088 8$: RET : 

; Routine Size: 137 bytes, Routine Base: _SMGSCODE + 0289 
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Screen Management Facility Keypad Procedures 16-5e -1984 00:48: AX-11 Bliss-32 V4.0-74 S 7 
SNGSSLOOKUP-KEY 1o-83p- 1982 99:55:39 FMcatesReSsmext ean g$2.1 age 


ZSBTTL 'SMGSSLOOKUP_KEY' 

GLOBAL ROUTINE SMGS$SLOOKUP_Kk 
KTH: REF KTH_R_KTH_STROC 
TKEY_DESC: REF BLOCK C, 
KDE: REE KDE _R_KDE_STRUC 
): SMGSSLOOKOP_KEYSLNK = 


++ 
FUNCTIONAL DESCRIPTION: 


This procedure is called by SMGSREAD_COMPOSED_LINE to return 
the Key Definition Entry for a given ‘total key’. 


! CALLING SEQUENCE: 


ret_status.wlc.v = SMGS$LOOKUP_KEY ( 
KTH.rr.r, TKEY_DESC.rr.r, KDE.wr.r) 


FORMAL PARAMETERS: 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 
SIDE EFFECTS: 
NONE 


BEGIN 


OCAL 

KEYCODE: REF VECTOR (2, BYTE], ! Key code 

TEMP: BYTE, ! Temporary 

FOUND_KDE ' KDE found 

LOOKUP_STATUS; i Status from LIBSLOOKUP_TREE 
14 
: Swap the two bytes of the key code so that a string comparison works. 


KEYCODE = ,TKEY DESC COSCS$A_POINTER] + (.TKEY_DESC CDSC$W_LENGTH) - 2); 
TEMP = -KEYCODE }; 

KEYCODE t } = .KEYCODE (1); 

KEYCODE (1) = .TEMP; 


'¢ 
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; Routine Size: 72 bytes, Routine Base: _SMGSCODE + 0312 
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MGSKEYPAD Screen Management Facility Keypad Procedures 16-Sep-1984 00:48: AX-11 Bliss-32 V4.0-74 Page 28 ! 
ety SHGSSLOOKUP REY oer eee) a et HS Me ee hg ea Te oe gf ; 
; 1041 111 ' Look up key name. ; 
3 1849 Nie te — 3 
3 104 111 s 
3; 1044 1114 LOOKUP STATUS = LIBSLOOKUP_TREE ( ; 
; 1045 1115 KTA CKTH_A_TREEHEAD], ' Address of treehead . 
; 1048 1116 TKEY_DESC [0,0,0,0), ! Total state-key string ; 
; 104 111 COMPARE ROUTINE, ! Key comparison routine ; 
: 1048 1118 FOUND_KBE); ! Pointer to found KDE : 
> 1049 1119 IF NOT .LOOKUP_ STATUS ; 
: 1050 1120 THEN : 
; 1051 1121 RETURN SMG$_KEYNOTDEF; ! Key not defined 5 
: 1028 11 ¢ 3 
1082 1152 int KDE 4 defined found 
; ! K s not defined, return ‘'not found’. : 
: 1055 1125 te 3 
: 1056 1126 ; 
3; 1057 1127 KDE = .FOUND_KDE; > 
; 1058 1128 IF NOT .KDE CKDE_V_DEF INED] ; 
; 1059 1129 THEN 3 
3 Hs 1139 RETURN SMG$_KEYNOTDEF; ! Key not defined ié 
H 1906 1138 RETURN SS$_NORMAL; : 
; 106 11 3 
; 1064 1134 1 END; ! End of routine SMGS$LOOKUP_KEY : 
5E 08 (C2 00000 SMGS$S$LOOKUP_KEY:: 3 
suBC2 #8, SP : 1055 : 
56 51 0 60003 OVL R1, R6 3 3 
51 66 3C 00006 MOVZWL (TKEY_DESC), R1 3; 1105 3 
51 04 Ab CO 00009 ADDL2 4(TKEY_DESCS, R1 : : 
51 07 BR 0n0 DECL KEYCODE 3 ; 
6E 71 90 QOO0F MOVB -(KEYCODE), TEMP ; 1106 3 
61 01 Ail 90 00012 MOVB 1(KEYCODE), (KEYCODE) : 1107 ; 
01 Al 6—E 90 00016 MOVB TEMP, 1(KEYCODE) ; 1108 3 
04 AE OF OO01A PUSHAB FOUND_KDE : 1116 : 
0000V CF 9F 0001D PUSHAB COMPARE ROUTINE : 3 
0041 8F BB 00021 PUSHR #*M<RO,R6> 3 3 
000000006 00 04 FB 0025 CALLS #4, LIBSLOOKUP_TREE ; : 
ogg at BS Reese a POE ie i 119 
3 ri Bo 88 4 TSTB SO URDE) ; 1158 3 
9 19 00036 BLSS $ 3 3 
50 00000000G_ 8F 9 0038 1$: MOVL #SMG$_KEYNOTDEF, RO 3: 1130 3 
3 11 0003F BRB 3$ 3 3 
50 } dO on 33: MOVL #1, RO 3 1132 3 
5E 8 4 044 3$: ADDL2 #8, SP 3 1134 3 
0047 RSB ; : 
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14 
: Upcase key name and strip blanks. If key name has invalid Length, 
return an error. 


KEY_NAME_PTR, 
KEY NAME_LEN: WORD, ! Length of key name 
CHAR_PTR ! Pointer to current character in_KEY_NAME 


ANL_STATUS; i Status from LIBSANALYZE_SDESC_R2 


ANL_STATUS = LIBSANALYZE SDESC_R2 (.CALLERS_AP CK_KEY_NAME]; 
AME _LEN, KEY_NARME_PTRJ; 


| 
| 
| 
| 
BE 
LOCAL 
! Pointer to KEY_NAME string 
EY_N 
IF NOT VANL_STATUS 
THEN 
RETURN .ANL_STATUS; 
IF (.KEY_NAME_LEN = 1) GTRU 30 ! Between 1 and 31? 
RETURN SMG$_INVKEYNAM; ! Invalid key name 
‘+ 
Find the position of the Last non-blank character. 
CHAR_PTR = .KEY_NAME 
WHILE ((CHAR_PTR=.CHAR_ 
4 BEGIN 
« KEY_NAME LEN = .KEY 
4 IF TKEY_NAME_LEN EQ 
END; 
J 


¥: KEY NAM 


ar E_LEN; 
PTR=1;CHSRCHAR(.CHAR_PTR)) EQLU %C* ') DO 
NAME_LEN = 1; 
C 0 TREN EXITLOOP; 


14 
Move an upcased counted string to NAME_TMP; 


Ae AE et ee et te SPEER EES PWN wrnornreroronury 


VAVSSRANVSSSISS WR O OONA VE WN OODNAUE WN SO OODNAUNE WN OO OONOULS WW 


NAME_TMP [0] = .KEY_NAME_LEN; 
IF RANE _TMP coj caf 0 


RETURN SMG$_INVKEYNAM; ! Invalid key name 
CHSTRANSLATE (LTBSAB_UPCASE sKey NAME_LEN, .KEY_NAME_PTR, 
NAME_LEN; NAME_TMP (13); 


0, KEY 
ND; 
'¢ 

Get the code number corresponding to this key name, if any. 


CODE_STATUS = SMGSSNAME_TO_KEYCODE (NAME_TMP, KEY_CODE); 
IF NOT . CODE_STATUS 
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RETURN .CODE_STATUS; 


14 
i Construct TKEY - ¥ Pere se IF ee a <NUL>, and KEY_CODE. 
KEV.¢ ha they, compare as strings. 


' Swap the bytes o 
m' IF ETATE — le we're at it. 


j, “eseee and blank tr 


KTH = ..CALLERS_AP CK_KEY_TABLE_I 

OUT TKEY _DESC = “KTH CRTH_R_DEF oi _DESCR]; ! Assume default state 
TKEY_PTR-= .KTH KTH A_DEF “KEYCODE];~ 

IF ( ~CALLERS_APLOJ)<0,8> GEO K_IF_STATE 


IF .CALLERS_AP CK_IF_STATE] NEQA 0 
THEN 
hah 
IF _STATE_PTR, ! Pointer - IF_STATE string 
' Length of IF_STATE string 


IF ze Ale “LEN: WORD, 
CHAR_PTR ; Gointer to current charact 
ANL_STATUS; Status from LIBSANALYZE *SDESC _R2 


ANL_STATUS = LIBSANALYZE_SDESC_R2 (.CALLERS_AP CK_IF_STATE); 

STATE_L LEN. IF_STATE_PTRY; 
IF NOT” .ANL_STATU 
THEN 


RETURN .ANL_STATUS; 
r ‘. .IF_STATE_LEN = rf GTRU 30 ! Between 1 and 31? 
RETURN SMG$_INVSTANAM; ! Invalid state name 


'¢ 
! Find the position of the last non-blank character. 


ROPTR = IF STATE PTR+ IF STATE LEN: 

WHILE (CHAR. PTR=, cazk _PTR=1;CHSRCHAR(.CHAR_PTR)) EQLU %C' ') DO 
IF_STATE_LEN = .IF_STATE -1; 
IF~.1F_STATE_LEN EQL 0 Fae EXITLOOP; 
END: 

TKEY_DESC COSC$W_LENGTH] = .IF_STATE_LEN + 3; 

KEY-PTR = CHSTRANSLATE (LIBSAB_UPCASE, .IF STATE_LEN, .IF_STATE_PTR, 
0, .IF_STATE_LEN, .TKEY_DESC COSCS$A_POINTER]);: 

CHSWCHAR_A™(O, TREY_PTR); 

OUT_TKEY_DESC = .TKEY_DESC: 

OUT" TKEY~DESC rp sc$B D1 vPE) = DSC$K_DTYPE_T; 

QUT TKEY_DESC DSC$B-CLASS] = DSCSK~CLASS~S: 


1+ 
Move the key code, swapping the bytes. 


TKEY_PTR [0] = .KEY_CODE<8,8>; 


~— 
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Screen Management Facility Keypad Procedures 1b-$e =-1984 748:4 AX-11 Bliss-32 V4.0-74 
CONSTRUCT. TREY o-_ 1 =3007 138% 90:38589 SMGRTL. REISHeKE TPAD 68251 
6 TKEY_PTR (1) = .KEY_CODE<0,8>; 
' RETURN SS$_NORMAL; 
1310 END; ! End of routine CONSTRUCT_TKEY 
or Ore serpin Wy Save R2,R3,R4,R5,R8,R9,R10,R11 
® ave ° . 
5B 000000006 00 9€ 900 MOVAB LIBSANALYZE_SbESC_R2, R11 
5A 000000006 00 9E 0000 MOVA\ L1BSAB UPCASE, R10 
SE 6 ¢ 9019 SUBL2 #36, sP 
59 7 DO 0001 MOVL R7, R 
50 08 Ab DO 00016 MOVL 8(CALLERS_AP), RO 
68 if OO1A JSB LIBSANALYZE_SDESC_R2 
6F 0 : 001C BLBC ANL_STATUS, ~5$ 
50 51 3c 0001F MOVZWL KEY-NAME_LEN, RO 
50 07 90022 ECL RO 
1€ 50 01 00024 RO, #30 
15 1A 00027 BGTRU 3$ 
50 51 3C 00029 MOVZWL KEY_NAME_LEN, CHAR_PTR 
50 38 CO 0002C ADDL2. KEY NAMEPTR. CHAR_PTR 
20 70 91 OO002F 1$: CMPB = = (CRAR_PTR), #32 
04 iF 00032 BNEQ 
51 B7 00034 DECW  KEY_NAME_LEN 
F7 if} 00036 BNEQ 1$ 
04 AE 51 90 00038 28 MOVB § KEY_NAME_LEN, NAME_TMP 
09 12 0005¢ BNEQ 4$ 
50 000000006 8F 00 000 : 3$ MOVL § #SMG$_INVKEYNAM, RO 
7A 11 0004 BRB 10$ 
00 62 51 2E 00047 4$ MOVTC KEY_NAME_LEN, (KEY_NAME_PTR), #0, - 
05 AE 51 004C LIBSAB_UPCASE, KEY“NAME~LEN, NAME_TMP+1 
5E DD 0004F PUSHL SP 
08 AE OF 90051 PUSHAB NAME_TMP 
000000006 09 0 FB 0054 CALLS #2, SMGSSNAME_TO_KEYCODE 
6 50 €9 00058 BLBC CODE_STATUS, 
57 04 86 DO O05 MOVL @4(CALLERS AP), KTH 
58 14 A? i 006 MOVAB g0(R7) OUT_TKEY DESC 
55 1C A? DO 00066 MOVL B(KTHS, TKEY_ 
03 66 D1 0006A CMPL (CALLERS_AP) , #3 
ar Oe 90 D BLSSU 
oc A 03 F TSTL 12(CALLERS_AP) 
42 13 00072 BEQL 
50 0c a6 00 00074 MOVL  12(CALLERS_AP), RO 
: 1 078 JSB LIBSANALYZE_SDESC_R2 
44 t 7A BLBC  ANL_STATUS, —10$ 
50 1 ¢ 9070 MOVZ2WL IF STATE_LEN, RO 
20 D7 0008 DECL R 
1E D1 008 CMPL RO, #30 
9 1 BLEGU 
50 000000006 8F p #SHGS_INVSTANAM, RO 
1 5$: BRB 10$ 
50 1 3 é$: MOVZWL IF_STATE_LEN, CHAR_PTR 
50 2 C0 0009 ADDL2  IFTSTATETPTR. CHAR-PTR 
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; Routine Size: 31 bytes, Routine Base: _SMGSCODE + O41F 


1$ 
SBwC #1, RS 
18: MOVL R4, RO ; 
RET ; 1357 
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1-006 SNGSDEFINE REY Sey 122868 =1 382 99709589 SMGRTL. REISMEKEYPAD. 89251 . 3) 

; 137 neg 1 ZSBITL 'SMGSDEFINE_KEY' ; 
3; 137 1445 1 GLOBAL ROUTINE SMGSDEFINE_KEY ( 3 
; 1378 1444 1 KEY_TABLE_ID: REF VECTOR C, Long. : 
: } 6 1e0 } COMMAND LINE : REF BLOCK C, BYTE : 
: 1381 1209 ; 
: 1 B 1448 1 i+4 3 
: 1 th 1902 } FUNCTIONAL DESCRIPTION: : 
: 1385 1484 1 i This procedure parses and performs a DEFINE/KEY command. It can ; 
: 1386 1038 1! be used by utilities which accept DEFINE/KEY commands but which F 
; : 44 \ee7 ! do not wish to parse the commands themselves. : 
: 1389 1455 1! SMGSDEFINE_KEY calls CLISDCL_PARSE to parse the command Line and : 
: 1390 1456 1! then makes the appropriate call to SMGSADD_KEY_DEF. Use of this ; 
: 1391 1457 1! presesers requires that the image be run under the DCL command ; 
; 1336 1028 } anguage interpreter. : 
; 1394 1460 4 i CALLING SEQUENCE: 3 
; 1396 146¢ RET_STATUS.wlc.v = SMGSDEFINE_KEY ( : 
: fd 1463 1! KEY TABLE _ID.rl.r, : 
: 138 ec : COMMAND _LINE.rt.dx) : 
; 1400 1466 | | FORMAL PARAMETERS: : 
: 1408 1468 1! KEY_TABLE_ID A longword containing the identification of the ; 
3; 140 1469 1! key-definition table for which the DEFINE/KEY $ 
: 1ebe 1309 ! } command is to be performed. : 
> 1406 1an8 1! COMMAND _LINE A string containing the entire DEFINE/KEY command : 
3: 1407 1475 1! to be performed. Obtain this by calling : 
: pee 1008 : CLISGET_VALUE with the ‘'SLINE’ keyword. : 
; 1410 1476 | | IMPLICIT INPUTS: ; 
; 1412 1478 1! NONE ; 
3 141 1479 1! : 
: ieis e+ } IMPLICIT OUTPUTS: : 
> 1416 1482 1 i NONE ; 
3 1417 1485 1! : 
: 1218 re : COMPLETION STATUS: : 
> 1420 1286 1! SS$_NORMAL Normal successful completion : 
7 14 148 1! LIBS_xxx Any error status from LIBSSCOPY_DXDX $ 
3: 14 1488 1! CLIS_xxx Any error status returned from CLI$ routines : 
; 1? 1333 : SMGS$_ xxx Any error status returned by SMGSADD_XEY_DEF : 
: 14 1491 | i SIDE EFFECTS: ; 
> 14 1493 1 | NONE ; 
3 14 14 1! : 
3 14 14 1! 3 
3 14 14 1 3 
3 14 14 § 3 
3 14 14 3 
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IF NOT .S ie « 

THEN 

STATUS); 

T CK_SET_STATE, 0,0,0,0); 


RETUR 
SET_STATE_P 
END; 
1+ 

Get the attributes. 


ATTRIBUTES = 0; 

DESC_LIST CK_ITEM_NAME, DS 
DESC"LIST CK-ITEM-NAME. D 
IF NOT CLISPRESENT (DESC_L 


ATTRIBUTES = ATTRIBUTE 


ENGTH] = XCHARCOUNT ("ECHO"); 
OINTER] = UPLIT BYTE ('ECHO'S; 
K_ITEM_NAME, 0,0,0,0) 


MGSM_KEY_NOECHO; 


We 
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§ 
C_LIST CK_ITEM_NAME, DSCSW_LENGTH] = XCHARCOUNT ('TERMINATE'); 
C"LIST CK7 ITEMNAME DSCSA INTER] = UPLIT BYTE ('TERMINATE'S; 
CCISPRESERT (DESC_LIST CK_TTEM_NAME, 0,0,0,03) 


ATTRIBUTES = .ATTRIBUTES OR SMGSM_KEY_TERMINATE; 


C_LIST CK_ITEM_NAME, DSC$W_LENGTH] = XCHARCOUNT (‘LOCK STATE"); 
C“LIST CK-ITEM-NAME, DSCSA-POINTER] = UPLIT BYTE (*LOCR_STATE'); 
CCISPRESERT (DESC_LIST CkK_TTEM_NAME, 0,0,0,03) 


ATTRIBUTES = .ATTRIBUTES OR SMGSM_KEY_LOCK; 
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'¢ 
See if IF_STATE was specified, and set IF_STATE_PRESENT accordingly. 
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IF CLISPRESENT (DESC_LIST CK_ITEM_NAME, 0,0,0,02) 
BEGIN 
LOCAL 
STATUS + CLISGET_VALUE (DESC_LIST CK ITEMNAME, 0,0,0.03 
DESC_LIST Proved STATE, O, 4 bss! | ony cee eee, 
TATU 
N LI 
_PTR 


84 

Ha 

87 DESC_LIST Pea] TEA WANS « DSC$W_LENGTH] = ZCHARCOUNT (‘IF _ STATE"); 

4 DESC-LIST CKTITEM_NAME, DSCSA-POINTER] = UPLIT BYTE ('IF_STATE’S; 

90 IF_STATE_PTR = 0; 

91 IF STATE PRESENT = CLISPRESENT (DESC_LIST CK_ITEM_NAME, 0,0,0,0]); 
3 8 IF”. IF STATE_PRESENT 

9 9 THEN 

38 069 IF_STATE_PTR = DESC_LIST CK_IF_STATE, 0,0,0,0); 

38 666 '¢ 

9 66 ' Loop edging key definitions until all IF_STATE values are used, or 
98 664 ! if no IF_STATE, just once. 

99 665 le 
600 606 
601 66 WHILE 1 DO 

ret 668 BEGIN 

6 669 | 
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14 
If IF_STATE was on the command Line, get the next value. 


AF 


BEGIN 
LOCAL 

STATUS; 
STATUS = Stite ceet 

C_LIST CKLIF_ 

IF NOT .STATUS !€ 
THEN 

EXITLOOP; 
ND; 


“4131, K_TTEM_NAME , 0,0,0,0], 
no more values 
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4 
Add the key definition. 


BEGIN 


ADD STATUS; 
ADD STATUS = SMGSADD_KEY_DEF ( 


_1D (0), 
DESC_LIST-LK_KEY_NAME, 0,0,0,0], 
.1F_STATE_PTR, 

ATTRIBUTES 
DESC_LIST CK_EQUIV_STRING, 0,0,0,0), 
.SET STATE PTR); 
IF NOT .ADD_STATUS 


T 
a RETURN LIBSSIGNAL (.ADD_STATUS); 


PAAAAAAAAAAAAO 
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4 
If IF_STATE wasn't on the command Line, exit. 


IF NOT .IF_STATE_PRESENT 
EXITLOOP; 
END; 


+ 
} Free our dynamic strings. 


RETURN LIBSSFREEN_DD (2REF(4), DESC_LIST); 


POPP PIPINININIWWIW WWE BE EEE EEE EEE EWI BB BEB PW 


BeBe Se Fe Se Ge Se Se GaSe Ge Ge Fe Ge Ge Se Se Se Ge SHG Ge Ge Se Se Se Ge Ge Ge Ss Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se See Se Se Seas tesg 
a a a ae ad nd a od od = = 8 8 3 = 8 2 3 


MEW 0 OONOAUEWN —OOOnNOu 


PN & EE EE 


IF_.IF_STATE_PRESENT 
THEN 
END; ! End of routine SMGSDEF INE_KEY 
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ARNOLER 1eagee=19Be FEGb:89 —-FaNGAT Obsegsze Ve e0o ks. 9° 43) 
XSBTTL "DEF INE_KEY HANDLER! 
ROUTINE DEFINE KEY HANDLER ( 
SIGARGS: REF BCOCK [, BYTEd. ! Signal arguments List 
MCHARGS: REF BLOCK BYTE ! Mechanism arguments List 
ENBARGS: REF VECTOR C, LONGI i Enable arguments list 


+ 

FUNCTIONAL DESCRIPTION: 
This procedure is the condition handler for SMGSDEFINE_KEY. 
It intercepts cls errors signalled by CLI rout tage which are 
called from SMGSDEFINE KEY, and also any errors signalled 
by SMGSDEFINE_KEY itself. The handler frees the dynamic strings 
which were alTocated 24 SMGSDEFINE_KEY and causes a return to 
the caller of SMGSDEFINE_KEY with a return status value of the 
error which was signalled. 

CALLING SEQUENCE: 
Called by VMS exception handling 

FORMAL PARAMETERS: 
SIGARGS - The signal arguments List 
MCHARGS - The mechanism arguments List 
ENBARGS - The enable arguments List. The enable 

argument is: 

. -ENBARGS (1) = Pointer to the first of 
four dynamic Hy tg 
descriptors to be freed. 

IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION STATUS: 
SS$_NORMAL Normal successful completion 


SS$~RESIGNAL Resignal condition to next handler 
SIDE EFFECTS: 
Causes an unwind. 


BEGIN 
LOCAL 


———_———— 
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iegbe DEF INE_KEY AANDLER atcenis * ease 488s P8:G8is9 «— FaMGAT Obhegsz2. Yh 00 786... 9 4% 
71 7 COND_NAME: BLOCK (4, BYTE); 


COND_NAME = .SIGARGS CCHFSL_SIG_NAME]; 


'4 
Return if this is SSS$_UNWIND. 


IF .COND_NAME EQLU SS$_UNWIND 


IAAI OPORORononononounung — 2 


WR ODONOULSWN —“OVOONOUS 


-EXTRN SYSSUNWIND 


0000 00000 DEF INE_KEY_HANDLER: 
: ase 00 Pe Save nothing ; 1723 
2 6 5 00 MOVL  SIGARGS, RO > 1781 


3; 3 1 : 
; 17 1 F 
3 i7 1 $ 
; 17 1 : 
3 12 1 : 
; 17 1 3 
ie 1 : 
: 17 1 $ 
; 17 1 : 
3 i727. 1 Fy 
3 i7 17 RETURN SS$_RESIGNAL; : 
3; 17 1790 : 
3 17 1791 + : 
3 17 1738 ! If this is not a zero-level error and is not from the CLI$ facility, : 
3 7 179 ! resignal. : 
3; 17 1794 ! : 
3 17 1795 : 
3 17 1796 IF (.COND ae CSTSS$V_FAC_NOJ] NEQU CLIS_FACILITY) AND ; 
; 7 a (.MCHARGS CCHFSL_MTH_DEPTH] NEQU 0) : 
3 17 1799 RETURN SS$_RESIGNAL; : 
; 1735 1800 F 
; 1736 1801 + 3 
3; 1737 1006 ! If the error is ‘'no command on Line", iys3 change the return status : 
3 He 180 ! to SS$_NORMAL, otherwise use the signalled status. $ 
; 1739 1804 le : 
; 1740 1805 : 
; Ht} 1308 IF .COND_NAME EQLU CLI$_NOCOMD ; 
: 170 1808 MCHARGS CCHFSL_MCH_SAVRO] = SS$_NORMAL ; 
3; 1744 1809 EL : 
3 1745 1810 2 MCHARGS CCHFSL_MCH_SAVRO] = .COND_NAME; ; 
: 1746 1811 3 
3 1747 1316 '+ ; 
3; 1748 181 ! Free the dynamic strings. : 
3 1749 1814 !- 3 
; 1750 1815 : 
3; 1751 1816 IF _..ENBARGS [1] NEQA 0 : 
3 1736 1817 : 
; 175 1818 LIBSSFREEN_DD (ZREF(4), ..ENBARGS [1)); 3 
; 1754 1819 : 
: 1755 + 0 '¢ : 
; 1736 : 1 Unwind back to the caller of SMGSDEFINE_KEY. : 
; 178 18 : 3 
; 1759 1824 RETURN SUNWIND (); : 
: 1760 136? : : 
3; 1761 1826 1 END; ! End of routine DEF INE_KEY_HANDLER : 


0 04 AC OD 


ement Facility Keypad Procedures 
E Rer EY RAND CER Avmpas 


pr}984 $9:00;89 — EeMorte See isheKe reap -o$2;1 


OnNO>rOoOed-Druwocoovlye DWOPYPrO——'P 
MmMmrom FON HK fF HK OK EF MAHOO MOO" 
own OCOo-9°070°0-90 -9T90Ow-9 9 OT 


SoS F£WOD"OIOWMOOONO FOWMOWI WO 


; Routine Size: 


phan OF COND _NAM 
7 NAME , #233 


#16, #12, COND_NAME, S*CLIS_FACILITY 
MCHARGS, RO 
(RO) 


42328, RO 


MCHARGS, RO 
ND_NAME, #CLI$_NOCOMD 


#1, 12(RO) 
COND_NAME, 12(RO) 
ENBARGS, RO 

4 (RO) 

5§ 

a4 (RO) 
#4, 4(SP) 

4($P) 

#2, LIBSSFREEN_DD 
#2, SYSSUNWIND 
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1-006 SHGSLOAD_KEY. DEFS Peri 12288-1382 99:08;89 SMGRTL SREISMEKEYPAD. 69251 . (14) 
; 1763 1827 1 XSBTTL "SMGS$LOAD aN DEFS' 
> 1764 1828 1 GLOBAL ROUTINE SAGS$LOAD_KEY 4 He ( 
: 1765 1 8 1 KEY TABLE_ID: REF VEE TOR LONG] 
; 1766 1 1 FILESPEC: REF BLOCK [, BYTE) 
: 176 1831 1 DEFAULT FILESPEC: REF BLOCK C, BYTE, 
H 1798 i § : LOGNAR_PLAG: REF VECTOR CL, LONG 
: 1770 1834 1 7 
3; 1771 1835 1 !+4 
$ a: i 8 ! FUNCTIONAL DESCRIPTION: 
: 1774 18 8 ii This procedure opens and reads ° file containing DEFINE/KEY 
; 1775 1839 1! command Lines and calls SMGSDEFINE_KEY for each Line in the file. 
3; 1776 1840 1! This can be used by utilities to conveniently load a default set 
: ire 130) ! of key definitions. 
: 1779 1868 1/ Use of SMGSLOAD_KEY_DEFS requires that the calling program be 
: 1239 ieee : run under the DCL command Language interpreter. ’ 
; 178¢ 1846 1 | CALLING SEQUENCE: 
> 1784 1848 1 | RET_STATUS.wic.v = SMGSLOAD_KEY_DEFS ( ; 
: 1785 1849 1! KEY TABCE_ID.rl.r, 3 
: 1786 1850 1! FILESPEC.rt.dx 3 
: 1787 192) 1! » COEFAULT_FILESPEC.rt.dx] 3 
; ies 1826 : , CDEFAULT_LOGNAM.rt.dxJ JJ) : 
: 1790 1854 | FORMAL PARAMETERS: 
: as 1856 1} KEY_TABLE_ID A longword containing the identification of the 
: 179 1857 1! key-definition table into which are to be loaded 
: 1738 1328 ! the key definitions. 
: 1796 1860 1! FILESPEC A string containing the file specification for the 
3 173 130) : file of DEFINE/KEY commands. 
: 1799 1868 1} DEFAULT_FILESPEC A string containing the default file specification 
; 1800 H+ +¢3 = for the file of DEFINE/KEY commands. f omitted, 
: 130) ! 22 : the empty string is used. 
; 1808 1867 { IMPLICIT INPUTS: 
> 1805 1869 1: NONE 
4 BS 1 4 7! 
; Ht : 4 : } IMPLICIT OUTPUTS: 
: 1809 1873 1: NONE 
: 1810 1874 1! 
3 ' 3 ' o : COMPLETION STATUS: 
:1 ig 1877 1 SS$_NORMAL Normal successful completion 
3 1814 1878 1! SMGS_FILTOOLON File specification is too long (over 255 characters) 
; 1815 1879 1! SMGS$_xxx Any error status returned from gresoer IME KEY 
3 ! 1g ! : RMS$_ xxx Any error status returned from SOPEN 
; 1818 18¢ | i SIDE EFFECTS: 
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use a zero-length string as the filespec. 


BLi 


IF ($STRNLOG (LOGNAM=LOGNAM_DESC, RSLBUF=RSLBUF_DESC) EQLU 
_NOTRAN) 


N 
NAM_DESC [DS 
SPEC_PTR = 


C$W_ LENGTH] = 0; 
R = LOGNAM_DESC 


14 
Open the file. 


OPEN STATUS = SMGSCREATE VIRTUAL_KEYBOARD (KEYBOARD_ID, .FILESPEC_PTR, 
UF ACTUALCOUNT () GEGU K_DEFAULT_FILESPEC 
ggDEFAULT_FILESPEC 


PE 
IF NOT .OPEN_STATUS 
RETURN .OPEN_STATUS; 


'+ 


' 

LINE_DESC CDSCS$W_LENGTH] = 0; 

LINE~DESC DSC$B_DTvPEd = DSC$K_DTYPE_T; 
LINE-DESC CDSCSB-CLASS] = DSCSK~CLASS-D;: 
LINE~DESC CDSCSA~POINTER] = 0; 

4 


i While we're not at EOF, read records and call SMGSDEFINE_KEY to 
process the command Line. 


sane > 5 ti hier (KEYBOARD_ID,LINE_DESC)) DO 


OCAL 
DEF INE_STATUS; 
DEFINE _STATUS = SMGSDEFINE_KEY (KEY_TABLE_ID (OJ, LINE_DESC); 
IF NOT DEF INE_STATUS 
SIGNAL (.DEFINE_STATUS); 
ND; 
LIBSSFREE1_DD (LINE_DESC); 
SMGSDELETE-VIRTUAL_REYBOARD (KEYBOARD_ID); 


RETURN SS$_NORMAL; 


ye aise PN rte 
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; 1934 1998 1 END; ! End of routine SMGSLOAD_KEY_DEFS 


-EXTRN SYSS$TRNLOG 


009¢ 0 JENTRY SHGSLOAD. KEY_DEFS, Save R2,R3 : 1828 
5E FEES CE : 0 MOVAB : 
8 AC p 0 MOVL FILESPEC: FILESPEC_PTR + 1914 
04 6¢ 1 008 CMPB Ss AP), #4 : 1915 
4 1F 000 BLSSU.'1$ : 
10 AC D5 01 TSTL 19<AP) : 
4F 1 BEQL si ; 
48 10 BC £9 0001 BLBC § @LOGNAM_FLAG, 1$ + 1918 
50 08 ac dO 00019 MOVL  FILESPEC, R + 1928 
000000006 00 16 0001 JSB LIBSANALYZE_SDESC_R2 ; 
OC AE 1 B0 000 MOVW R11, LOGNAM_DESC : 
10 AE : 00 00 MOVL §R2, LOGNAM-DESC+4 ; 
4E 50 €9 00028 BLBC AN TATU : 1929 
OE AE 010E 8F B80 0002E MOVW #270, LOGNAM_DESC+2 + 1932 
18 AE 1¢ AE 9 0034 MOVAB RS Had RSLBOF DESC+4 + 1935 
14 AE O1OEOQOFF BF p 0039 MOVL 4975, RSLBUF _DESC + 1934 
7E . 7C 00041 CLRQ + 1944 
7E D4 00043 CLRL ~(3p} : 
20 AE OOF 90045 PUSHAB RSLBUF_DESC ; 
7E D4 00048 CLRL = (SP) : 
20 AE OOF DO04A PUSHAB LOGNAM_DESC ; 
000000006 00 06 FB 0004D CALLS a6, SYSSTRNLOG F 
00000629 BF 50 D1 00054 CMPL  ~— RO, : 
07 12 00058 BNE ; 
0c AE B4 0005D CLRW  LOGNAM + 1948 
53 OC AE 9E 00060 MOVAB LOGNAN DESC, FILESPEC_PTR + 1949 
03 6C 91 00064 1$: CMPB + 1960 
05 1F 00067 BLSSU ; 
0c AC DD 00069 PUSHL DEFAULT_FILESPEC > 1962 
02 11 0006C BRB 38 ; 
43 D4 006 28: CLRL (SP) + 1960 
53 DD 00070 38: PUSHL FILESPEC. PIR : 1959 
08 AE 9F 0007 PUSHAB kEYBO : 
000000006 00 0 FB 007 CALLS # SHGBTREATE VIRTUAL_KEYBOARD ; 
4A 50 €9 0007C 48: BLBC OPEN + 1965 
04 AE 02060000 8F 00 0007F MOVL #3447 936, LINE _DESC + 1973 
08 AE 04 00087 CLRL—LINE_DESC : 197% 
04 AE 9F 00 A 5$ PUSHAB LINE DESC ; 198 
4 AE 9F 0008D PUSHAB KEYBOAR : 
000000006 09 : FB 9090 CALLS #2, SMCSREAD_ STRING ; 
1 f 9 LBC —Es&aRO,. (6S : 
04 AE 9F OOO9A PUSHAB LINE_D : 1987 
04 AC DD 0009D PUSHL KEY " ID ; 
FD86 CF Fe A CALLS #2, SMGSDEF INE key ; 
E2 E A LBS DEF INE_STATUS, : 1988 
DD 000A PUSHL DEFINE STATU + 1990 
000000006 00 01 Fg AA CALLS #1, LIBSSIGNAL 3 
D7 1 B BRB 5$ : 1983 
04 Ar 9F 000B3 6$ PUSHAB LINE esc : 199 
000000006 00 9 FB 0008 CALLS #1, CIBSSFREE1_DD : 
E DD 000BD PUSHL SP > 1994 


SMGSKEYPAD 
1-006 


; Routine Size: 


Screen Mana 
SMGSLOAD_KE 


202 bytes, 


a DES Facility Keypad Procedures 


000000006 9° 


Routine Base: 


1 ee 


-SMGSCODE + 069A 


1 
1 
F 
3 


f-3e0-198 


7$: 


a 18:09:87 


#1, 
#1 


CALLS 
MOVL 
RET 


AX-11 Bliss-32 V4.0-7 
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; 19 1999 1 XSBTTL ‘SMGSLIST_KEY_DEFS' 
; 19 $ 00 1 GLOBAL ROUTINE SAGSLTST KEY DFFS ( | 
: 1938 01 1 KEY_TABLE_ID: REF VECTOR LONG], 
: 1939 O¢ 1 CONTEXT: REF VECTOR C, LONG), 
; 1940 03 1 KEY_NAME: REF BLOCK (, BYTE], 
3: 1941 04 1 IF STATE: REF BLOCK phe ° | 
; 1948 05 1 ATTRIBUTES: REF VECTOR CL, LONG) | 
: 194 906 1 EQUIV_STRING: REF BLOCK . Byte). 
3 1944 007 1 STATE_STRING: REF BLOCK [, BYTE 
: 1945 008 1 )= 
; re 009 1 
3: 194 010 1 I++ 
3; 1948 011 1 ! FUNCTIONAL DESCRIPTION: 
3; 1949 o1¢ 1! 
; 1950 01 1! This procedure, when called repeatedly, returns all of the 
: 132) oie ! key definitions in a key table. 
; 198 016 1 ! CALLING SEQUENCE: 
: 1954 017 1! 
3; 1955 2018 1! RET_STATUS.wlc.v = SMGSLIST_KEY DEFS ( 
; 1956 2019 1! KEY TABCE_ID.rl.r, 
3; 1957 020 1! ONTEXT.mU.r, 
; 1958 021 1! » CKEY_NAME .rt.dx] 
: 1959 0 ; 4 » CIF_STATE.rt.dxJ 
: 1960 0 as . CATTRIBUTES.wl.rJ 
: 1961 0246 1! » CEQUIV_STR “+ ee, 
; 1206 025 1! , CSTATE_STRING.wt.dxJ) J3J]J) 
: 196 026 1! 
3: 1964 os? 1 ! FORMAL PARAMETERS: 
3: 1965 2028 1! ‘ 
>; 1966 $083 1 | KEY_TABLE_ID A longword containing the identification of the 
3 4d 4 spas : key-definition table which is to be listed. 
3: 1969 ae) 1! CONTEXT A longword which supplies context to the search. 
; 1970 2035 1! On the initial call, CONTEXT should be set to zero 
3; 1971 2034 1! oy the caller. It will be updated by SMGSLIST_KEY_DEFS; 
3 1306 2035 1! the updated value should then be passed on subsequent 
3 bak aie } calls to obtain the next key definition. 
3; 1975 038 1! KEY_NAME A siring into which is stored the key name of the next 
: 1976 B78 } definition in the key table. 
3; 1978 041 1! IF STATE A string into which is stored the state name which 
3 1973 Ong ! } qualifies the next definition in the key table 
; 1981 044 1! ATTRIBUTES A longword into which is stored the attributes : 
5 1986 045 1! bitmask for the next key definition. See the description 
; 138 Ree : of SMGSADD_KEY_DEF for more information. 
: 1988 beg 1: EQUIV_STRING A string into which is stored the equivalence-string 
3 1956 eh : } for the next key definition. | 
: 1350 084 1; STATE_STRING A string into which is stored the new state-name, 
3 1989 038 1! if any, which is set by the next key definition. | 
3; 1990 B 77 If this key definition sets a state, the ATTRIBUTES 
3: 1991 54 1! flag SMGSV_KEY_SETSTATE is set. 
3; 1992 055 1! 
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; 1993 1 ! IMPLICIT INPUTS: 

3: 1994 > 1! 

: 1995 8 1! NONE 

: 1238 1! 

; 199 60 1 ! IMPLICIT OUTPUTS: 

: 1998 823 1! 

3 1999 °¢ 1! NONE 

; 2000 065 1! 

3; 2001 064 1 ! COMPLETION STATUS: 

3 Oe 065 1! 

; 200 B98 1! SS$_NORMAL Normal successful completion 

3 She $e 1! SMGS_INVKTB ID Invalid key-table id 

; 2005 6 1! SMG$_NOMOREREYS No more keys in table 

; Bos 44 ! LIBS_xxx Any error status from LIBSSCOPY_DXDxX 

3; 2008 071 1 =! SIDE EFFECTS: 

3; 2009 Bre 1! 

: 2010 073 1! NONE 

: 2011 074 1! 

; Og 075 1 !== 

; 201 076 1 

3 2014 077 BEGIN 

: 2015 078 

3 B18 079 

; 201 080 DE, ' KDE found 

; 2018 081 KDE: REF KDE_R_KDE_STRUCT, ! Key definition entry 

; 2019 oes KTH: REF KTH_R_KTH_ STRUCT ! Key table header 

3 Ost +t DUMMY _KDE: KBE-R_KDE_STRUCT; ! Used to store first entry 

; 20 ¢ 085 BUILTIN 

3; 2024 087 NULLPARAMETER; 

: 2025 088 

: 2026 089 '¢ 

3; 2027 090 ! Define positions of arguments 

; 2028 091 !~ 

3; 2029 09 

3; 2050 09 LITERAL 

: 2031 094 K_KEY save .j0 = 1, 

3 O38 095 K-CONTEXT = 

> 20 09 K"KEY = $, 

: 20 09 K_IF STATE = 4, 

3; 2035 098 K-ATTRIBUTES = 5, 

: 20 099 K_EQUIV_STRING = $. 

; 20 100 KSTATE-STRING = 7; 

3 bse 101 

3; 203 108 '¢ 

: Bet in? } Validate KEY_TABLE_ID and get the Key Table Header. 

: Que 105 

3 204 106 SSMGSVALIDATE_KTH (KEY_TABLE_ID, KTH); | 

: $oes 10 | 

3 '¢ 

3 beg 109 If this is the first time, form a linear Linked List of the tree. 

: O48 111 | 

> 2069 112 KDE = .CONTEXT (0); | 
| 


SM 
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KE 14- SMGRTL.SRCIJSMGKEYPAD. 8 2;1 


pce tre 


| 


zo 
on 
Peo 
roe 
a 
=~ 


IF .KDE EQLA 0 
THEN 
BEGIN 
—_, 


E 

KEY-CODE-PTR: REF VECTOR C, BYTE), 
KEY~CODE: WORD, 
STATUS; 


zs 


yn sg whee ah wh ah 
eseessss 
POPIPIMOIPIPIPIAPININY 


'¢ 
_Convert key code to key name. 


S 
§ 
; 0 11 
3 1 Hi | 
: $038 118 | 
: 2054 113 T_KDE: REF KDE_R_KDE_STRUCT, | 
; 8 ‘ 118 TRAVERSE STATUS; 
> 205 120 LAST KDE = DUMMY_KDE: | 
; 2058 121 DUMMY_KDE CKDE_A-NEXT) = 0; 
: 2059 1 é TRAVERSE STATUS = TELBSTRAVERSE _TREE ( 
; 2060 1 KTH_A TREE HEADJ, ' Address of treehead 
; 2061 124 TRAVERSE ROUTINE. i Traverse routine 
5 808 125 KD i Pointer to erevious KDE 
3 206 1 $ IF Not “TRAVERSE _STATUS 
3 2064 1 THEN 
3 2065 128 RETURN . TRAVERSE_STATUS; 
3 2066 129 KDE = DUMMY_KDE; ' Get first KDE 
: 2067 130 END; 
: $069 133 t 
: 070 138 i Get address of next KDE. If no more keys, return status. 
; 2071 13 ! Skip over deleted keys. 
3 Ore 135 ie 
: 207 136 
; sore 1 *e BEGIN 
: 2076 139 KDE = CKDE_A_NEXT); 
; 2077 140 CONTEXT Ke ] = .RDE; 
3 Ore 133 If KDE EQLA 0 
3 2080 148 . RETURN SMG$_NOMOREKEYS; 
; 208¢ 145 UNTIL .KDE CKDE_V_DEFINED); 
: $08G 129 '¢ 
+ 2085 148 i Store values. 
Be Rg 
; 2088 2131 ; IF NOT NULLPARAMETER (K_ATTRIBUTES) 
: 2090 $ 35 ATTRIBUTES CO) = .KDE CKDE_L_ATTR] AND KDE_M_USER_ATTR; 
; 2098 55 IF NOT NULLPARAMETER (K_KEY_NAME) | 
3 209 26 THEN 
+ 2094 5 BEGIN 
3 2095 é 58 LOCAL 
3 2096 39 KEY_NAME_ AR A: VECTOR (32, BYTE) 
; 61 
F 86 
: 64 
; 65 
: i 
3 3 


ee ek a et ee ts ws SY Ht YH 


KEY.CONE_PTR = (.KDE CKDE_A_TKEY_POINTER] + .KDE CKDE_W_TKEY_LENGTH)) 


ee a ed ed ed ed 2d od od 2d 8 dd od dd 
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170 KEY_CODE<8, .KEY_CODE_PTR [0]; ! Swap bytes 

171 KEY~CODE< B .KEY-CODE-PTR £93: a 

\%¢ IF fot Encé KEYC CODE_TO_NAME (.KEY_CODE, KEY_NAME_AREA) 

174 EN EY LN REA (0) = 0; 

129 STATUS 5 NiiesegopY 3X6 6 (.KEY_NAME_AREA CO], KEY_NAME_AREA [1], 
177 IF NOT TSTATUS : 

Hf a RETURN .STATUS; 

181 : 

i IF NOT NULLPARAMETER (K_IF_STATE) 

1 THEN 

184 BEGIN 

185 LOCAL 

186 STATUS 

18 STATUS | = g HEESSOny R_DX6 (.KDE CKDE_W TKEY LENGTH) - 3, 

188 TKEY_POINTERJ, IF_STATE (£070,0,0]); 

4 IF wor E TA Tus ~ 

13 ats RETURN .STATUS; 

19 : 

194 IF NOT NULLPARAMETER (K_EQUIV_STRING) 

95 THEN 

%6 BEGIN 

44 LOCAL 

9 STATUS = a “Cigsscoy DXDX6 (KDE CKDE_R_EQUIV_DESCJ, 


TRING (0,0,0,0)); 
IF NOT STAT TUS 


THEN 
. RETURN .STATUS; 


Bog NULLPARAMETER (K_STATE_STRING) 


BEGIN 
LOCAL 


STA 

STATUS - “Cigsscory DxDx6 (XE CKDE_R_STATE_DESC], 
STATE STRING [0,0 

IF NOT .STATUS 


HEN 
RETURN .STATUS; 
ND; 


RETURN SS$_NORMAL; 
END; ! End of routine SMGSLIST_KEY_DEFS 


= PINININIWWINIWI III NINN nononorny 


03FC 00000 -ENTRY SMGSLIST_KEY_DEFS, Save R2,R3,R4,R5,R6,R7,- ; 2000 


tf | 
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8,R9 : 
9 000 G E MOVAB LIBSSCOPY_DXDXx6, R9 : 
8 Boovbge0s 60 SF BonKs ROVAg LISSSCOPY-R.DXG, RB 
; AG AE OO 10 MOVAB <-92(SP), SP : 
04 : p 14 MOVL axEY TABLE ID, KTH + 2106 
50 10 A pb} MA CPL 16(KTH), KTH : 
50 000000006 gf oO 0 6 1$: MOVL #SMG$_INVKTB_ID, RO : 
57 08 BC 209 028 2$: MOVL QCONTEXT, KDE : 112 
1D 1 0 C BNEQ + 211 
6E 24 AE 9E MOVAB DUMMY_KDE, LAST_KDE : 120 
0 AE D4 000 CLRL DUMMY—KDE+44 : 3121 
5E 0D 000 PUSHL SP t 2123 
0000v cr 9F 000 PUSHAB TRAVERSE_ROUTINE : 
0 DD 00038 PUSHL KTH : 
000000006 00 03 FB 003 CALLS #3, LIBSTRAVERSE_TREE ; 
69 0 £9 00044 BLBC +‘ TRAVERSE_STATUS, -7$ + 2126 
7 24 AE i 00047 MOVAB DUMMY_KDE, KDE : 3129 
57 2¢ «6A? «DO 00048 38: MOVL  44(KDE), KDE : 21 9 
08 BC 57 DO 0004F MOVL KDE, @CONTEXT + 2140 
08 12 00053 BNEQ + 2141 
50 000000006 8F 00 00055 MOVL § #SMGS$_NOMOREKEYS, RO + 2143 
04 0005C RET : 
33 AZ (95 0005D 4$: TSTB 51 (KDE) + 2145 
E9 18 00060 BGEQ $ ; 
05 6c 91 90062 CMPB ss), #5 : 2151 
OA 1F 0006 BLSSU  5$ ; 
14 AC D5 00067 TSTL OC(AP) : 
05 13 O006A EQL $ : 
14 BC 30 A? 9A 0006C MOVZBL 48(KDE), @ATTRIBUTES > 2153 
03 6C 91 00071 5$: CMPB sé AP), #3 : 2155 
3D 1F 00074 BLSSU «BS : 
0c AC D5 00076 TSTL 12¢AP) ; 
38 13 00079 BEQL 8$ ; 
50 0c A? 3C 0007B MOVZ2WL 12(KDE), RO + 2168 
50 10 a? CO 9007¢ ADDL g 16(KDE). RO : 
50 02 C8 0083 SUBL2 #2, KEY CODE PTR > 2169 
51 08 08 60 FO 00086 INSV (KEY CODE PTR), #8, #8, KEY_CODE : 2170 
51 01 AO 90 00088 MOVB  1(KEY_CODE_PTRS, KEY_CODE > 2171 
04 AE 9F OO08F PUSHAB KEY_NAME_AREA : 2172 
7E 51 3¢ 0092 MOVZWL KEYCODE; -(SP) : 
000000006 00 08 Fe 009 CALLS #2, ~SMGS$KEYCODE_TO_NAME : 
0 f 9C BLBS RO, 6$ : 
04 AE 94 0009F CLRB. «KE Y_NAME_AREA > 2174 
51 05 AE 4 OOA2 6$ MOVAB KEY"NAME-AREA+1, R1 > 2175 
52 0c aC OD OOA6 MOVL  KEY"NAME; R : 2176 
50 04 ag 9A OAA MOVZBL KEY_NAME AREA, RO 3 
16 OA JSB LIBSSCOPY_R_DX6 ; 
4F 0 f 0B0 7$: BLBC = STATUS, 12$ > 2177 
04 6C 91 00083 8$: CMPB CCAP), «#4 > 2182 
19 1F 8 BLSSU -9$ ; 
10 Ac 03 B TSTL  16(AP) ; 
50 oc A? $e So00n aroha t3cKDED. RO : 2187 
50 03 os ital SUBL2 38 Rb : 
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10 AC D C4 MOVL F_STATE, R2 : 2188 
4 8 AS p (8 MOVL lerepey R1 : 
$8 CC JSB LIBSSCOPY R_Xx6 : 
1 : cE BLBC =—_- STATUS + 2189 
6 6¢ 1 00001 9S: CMPB sé AP), 5° + 2194 
1F 000D4 BLSSU  _10$ : 
18 «AC D3 D TSTL 4 (AP) : 
0D 1 D BEQL Os : 
50 16 =A 4 DB MOVAB (KDE), RO + 2199 
51 18 aC D DF MOVL  EQUIV_STRING, R1 : 2200 
18 E JSB LIBSSCOPY_DXDx6 3 
1A 0 : 0 é BLBC STATUS, 12$ ; 3 01 
07 6C 91 000E8 10s: CMPB sé AP), 7 + 2206 
12 1F OOOEB BLSSU 118 : 
1c AC D3 OOED STL  28(AP) : 
0D 1 90FO BEQL 11$ : 
50 1c =O 4 OOF MOVAB 28(KDE), RO : 3211 
51 1¢ AC DO 000F6 MOVL §STATE_STRING, R1 + 2212 
69 16 OOOFA JSB LIBSSTOPY_DXDX6 : 
03 50 €9 OO0FC BLBC STATUS, 12$ + 2213 
50 01 DO OOOFF 11$:  MOVL #1, RO : 2218 
04 00102 12$: RET : 2220 
; Routine Size: 259 bytes, Routine Base: _SMGSCODE + 0764 


1- 


; 
— | 
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1-006 TRAVERSE_ROUT INE . 122868 382 9930858) SMGRTL.SRCISMGKEYPAD .B 231 . (16) " 
: 2159 1 1 XSBTTL_*TRAVERSE_ROUTINE' 
; 2160 § 1 ROUTINE TRAVERSE ROUTINE ( 
; 2161 1 NEXT_KDE_PTR:, ! Pointer to next KDE 
; 196 : ! LAST KDE PTR: REF VECTOR C, LONG) ! Contains pointer to Last KDE 
> = 
: 2164 § 1 
: 2165 1 !++ 
3 168 8 ! FUNCTIONAL DESCRIPTION: 
: 2168 » FI Routine called by LIBSTRAVERSE_ TREE. It is used to Link in this 
: 168 1 ! } KDE to the List that is being Built of KDEs in order. 
3: 2171 g 1 ! CALLING SEQUENCE: 
3 Ite 4 1! 
: i 5 : } Not directly called. 
: 17? 3 : FORMAL PARAMETERS: 
: 2177 39 1! NEXT_KDE_PTR A longword that contains a pointer to the next 
Hs ae * 
3 $180 tg 1! LAST_KDE_PTR A longword that contains a pointer to the previous 
: att 45 1! KDE. 
: ise 44 1! 
; 218 45 1 ! IMPLICIT INPUTS: 
3 2184 46 1! 
3: 2185 47 1! NONE 
: 2186 48 1! 
3 2187 49 1°! IMPLICIT OUTPUTS: 
3; 2188 50 1! 
3; 2189 § ite NONE 
3; 2190 26 1! 
3 13) 2 37 : } COMPLETION STATUS: 
; 138 3255 ' SS$_NORMAL Normal successful completion 
3: 2195 2257 1 ! SIDE EFFECTS: 
> 2196 § >) a 
3 2197 59 1! NONE 
: 2198 $60 1! 
3 2199 61 1 !-- 
; 2200 6 1 
; 2201 6 BEGIN 
ah aaron 
; 2204 6 THIS_KDE: REF KDE_R_KDE_STRUCT, ! This Key Definition intry 
: 2205 ref LAST_KDE: REF KDE_R_KDE_STRUCT; ! Previous Key Definition Entry 
3 201 69 '¢ 
: 2208 70 ' Get pointers. 
3: 2209 71 !- 
3: 2210 7 
3; 2211 7 THIS_KDE = .NEXT_KDE_PTR; 
: ig 74 LAST“KDE = .LASTKDE~PTR (0); 
: 1 75 
3 2214 7 1? ‘ 
; 15 7 ! Link in this KDE and zero the next pointer. 
| 
ha” 


N 12 
RVERSE ROaTinc: VOCtUfty Keypad Procedures §— jy=pepe 1984 OES8:49 «aK Ohiagese We s0s 788. Pace 6 in 


Le 
LAS 
TH] 
14 


a Update the ‘Last KDE" pointer. 


lle 


T_KDE [KDE_A_NEXT] = THIS_KDE (0,0,0,0]; 
S"KDE CKDE-A-NEXT] = 0; 


LAS’_KDE_PTR CO] = THIS_KDE (0,0,0,0]; 
RETURN SS$_NORMAL ; 
END; ! End of routine TRAVERSE_ROUTINE 


rmrorororororororerorororn 1 
rororeororererorerofrorrrn 3 wo 
O00 0000 CD CO CDCD CD ODCo I~ 


OONOULS WOO 
—COODNAUS WOO 


Sete Ge ee Se Ge Ge Ge Se Ge Ge Se Seas 
PIPIPPIPNINININININ 2 


0000 00000 TRAVERSE nt eae 


Save n 3: 22 
51 04 aC D0 00002 HO MENT RDE PTR, THIS. KOE : 3336 
50 08 BC D9 00006 MOVL § @LAST_KDE_PTR, LAST_KDE + 2274 
2c A 1 D0 OO00A MOVL ‘THIS_RDE, sag tLAsT *KBED : 2280 
2c =6Al «+4 0000 CLRL 44 (TALS KDE) : 2281 
08 BC 51 DO 00011 MOVL THIS tbe* @LAST_KDE_PTR : so 
50 01 D0 00015 MOVL #1, RO + 2289 
04 00018 RET + 2291 


; Routine Size: 25 bytes, Routine Base: _SMGSCODE + 0867 


Size: 

Run Time: 
Elapsed Time: 
Lines/CPU Min: 


Memory Used: 


Compication Complete 


si | coge + 52 data bytes 
02:36. 
19 


9 
Lexemes/CPU-Min: 18300 


188 pages 


16-5e-1 9 


EESSGEVAD —SRAGERSESRBBYTNEE FCTLITY Keypad Procedures HE-pep-1986 OU:GB'S  HMMGRSSAERRC Reo Pf 
: 253 3638 ! END ! End of module SMGSKEYPAD 
$538 94 0 ELUDOM 
~-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
; Name Bytes Attributes 
; _SMGSCODE 2176 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Bree 2 ree Senet a eee pyaROLE Sostwece Pages Processing 
: File Total Loaded Percent Mapped Time 
; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 26 581 00:01.0 
: ~$58SSbuAze:ESmORTL OBNTEMGL 18-130; 1 488 63 13 3 00:00:5 
; COMMAND QUALIFIERS 
; BLISS/CHECK=CFIELD. INITIAL OPTIMIZE) /NOTRACE/LIS#L1S$: SAGKEYPAD/0B)=08J$: SAGKEYPAD MSRC$: SMGKE YPAD/UPDATE=(ENH$: SMGKE YPAD 


3 
) 
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